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FOREWORD 


This report volume is a programmer's manual for the vehicle assignment model developed 
during a study of cost and performance methodologies for optimal assignment of space 
vehicles to advanced space missions. This study is being performed for the National 
Aeronautics and Space Administration under Contract NAS2-5202, momtored by 
Mr. Robert Slye and Mr. Harold Hornby of the Mission Analysis Division of the 
Office of Advanced Research and Technology. 

Individuals of Lockheed Missiles & Space Company, Sunnyrale, California, who 
contributed to this study are L. F Fox, project leader, C. J. Golden, key technical 
member; and M. A. Brunet. 
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SUMMARY 


This! document is Volume 2 of a three-volume series comprismg a final report of the 
Study of Systems and Cost/Performanee Methodologies for Optimization of Vehicle 
Assignment. This volume is a programmer's manual for the launch vehicle assignment 
program. Volume 1 of this series presents a techmcal description and Volume 3 
provides details on a computer program for integrated budget smoothing and vehicle 
assignment. 

This volume contains appendixes that provide model input requirements, a sample 
case, flow charts, and a program listing. At the beginning of each appendix, descrip- 
tive details and technical comments are provided to indicate any special instructions 
applicable to the use of that Appendix, hi addition, the program listing. Appendix D, 
includes comment cards that state the purpose of each subroutine in the complete 
program and also describe operations performed withm the subroutine. 
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Appendix A 

ASSIGNMENT PROGRAM INPUT REQUIRE-MENTS- 


A. 'i general - 


This appendix includes a complete glossary of input terms and detailed format reqmre- 
ments. Variable names are listed in order of input m correspondmg sections of use 

Jr } 


rather than alphabetically to make the glossary easier to use. Comments are also 
; included that describe either external or internal restrictions associated with the 
I variable. "Blank” spaces are mdicated whenever variables not used m this program 
'i are input m these locations for the integrated program. The same data cards may thus 
' be used for both programs as long as these blank spaces are not filled. 


Figure A-1 illustrates the basic data deck layout for this program. Any section may 
be eliminated if there are no associated data. However, either a blank card must be 
mserted in place of the section or the control card must reflect no mput for that 
section. If the control card is coded so no data are input for some section, then 
values input for the preceding case are automatically supplied. If no data are desired 
for any one section, jthen a blank card must be input to termmate that section. Stage 
performance data tO|be used in the stage-matching screen may be eliminated entirely, 
including the fmal blank card, if the stage-matchmg screen is not to be used. If this 
screen is used, thenUhe stage cards must be ordered so that all stages in Class 1 


precede those m Class 2, which precede those in Class 3, which precede those in 
Class 4. Stages not mcluded in the matching screen follow those in the above 
classifications. If the matching screen is not used, the order of cards within each 
section IS unimportant. 
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Fig. A-1 Data Deck Layout — Assignment Program 
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' The deck terminates with two blank cards in all situations. Figure A-1 is set up 
for one case only. A second case would start with a control card following directly 
"* behind the blank card ending either the vehicle data section or the stage performance 
section, whichever is applicable. In general, for each case there must he a control 
card and the complete data deck must be followed by a blank card. 
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A 2 INPUT FORM AND DEFINITIONS 


\ 


Card 

Columns 

Variable 

Name 

Format 

Description and Comments 

i Control Card 




1-5 

NOPT 

X5 

Code for mission/vehicle compatibility screen 
1 — AV versus payload weight and availability 
plus a prion assignment 




2 — Code 1 plus use stage-matching screen~[ 



T 

3 — All criteria 

6-10 

MYRS 

15 

Mission model duration in jears 

11-15 

IBY 

15 

Last 2 digits of 1st year of mission model 

16-27 

GUESS 

F12.2 

Upper bound for total mission cost (if 


, GUESS = 0.0, then GUESS is assigned 
a value 1.0 ElO Storage space is saved 
, if a realist i c v alue is input^) 


66-67 

IP 

,12 

Code for pad input* 

68-69 

IS 1 

12 

Code for stage input* 

70-71 

IFM i 

12 

Code for shared cost group input* 

72-73 

n ' 

' 12 

Code for integration cost input* 

74-75 

IM j 

1 

Code for mission input* 

76-77 

Blank 

2X , 

Blank 

78-79 

rV ^ 12 

Code for vehicle input* 

80 

LP 

11 

Code for logic outputj;if > 0 prmt logic outp 
if = 0 no logic output 


*If s 0, new input for this case. If < 0, use data from previous case 
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' Card ’ Variable 

Coliunns Name Format Description and Comments 

Stage 'cards (input only if IS s: 0) 1, NS-T&:£ 40 cards 

“ * ~t> f I ^ 


1st stage Card 


. 4'-. 2' 

KODE(I) 

12 

Reference # of stage on card I 

4-7 

STG(I) 

A4 

Name of stage on card I 

8-13 

SR(1, 1) 

F6.3 

Hardware recurring or refurbishment cost 
for 1st unit of stage on card I ^ 

14-19 

SR(I, 2) 

F6.3 

ETR launch support recurring cost for 1st 
unit of stage on card I 

20-25 

SR (I, 3) 

F6.3 

WTR launch support recurring cost for 1st' 
unit of stage on card I . 

26-30 

PLC(I, 1) 

F5.3 

Hardware recurrmg or refurbishment cost ' | 
learning curve % for stage on card I in decimal 
form (e g , 0 95) 

31-35 

PLC(I, 2) 

F5 3 

ETR launch support recurring cost learning ' 
curve % for stage on card I in decimal form 

36-40 

PLC(I, 3) 

F5 3 

WTR launch support recurring cost learning 
curve % for stage on card I in decimal form 

44-49 

SNR(I) 

F6.3 

beveidpment cost of stage on card I 

50-55 

SUS(I) 

F6.3 

Sustaining cost of stage on card I 

56-58 

NyS(I)i 

13 

1st year .stage on card I is- available 
(1 < NYS(I) < MYRS)* 

59-61 

LSA(I)[ 

13 

Last year stage on card I is available 

62-64 

NBY(I) 

13 

Batching duration in years for stage on card 1 
recurring cost 

65 - 76 

NFS(ljj), 
J = 1,4 

413 

KODEF of the shared cost groups (up to 4) to 
which stage on card I belongs 

78 

MODE(I, 1) 

11 

Code to indicate ‘type 'of input for hardware 
recurring cost of stage on card I 

79 

MODE(I, 2) 

11 

Code to indicate type of input for ETR launch ' 
support recurring cost of stage on card 
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uard ■ Var-iabie 

Columns Name Format Description and Comments 


2'nd‘— isth Cards needed for each pad complex (stage cost-data, 2-/card)(J=l, 10) 


' 3’-’ 4' fll 

43 NPSTG(I,J) 12 

- KOBE correspondmg to J-th stage costs of - 
complex I 

PSTGD(I, J,l) F6.0 

J-th stage development cost of first pad in 
complex I 

11 - 16,1 
51 - 561] 

i 

PSTGS(I, J, 1) F6.0 

J-th stage sustaimng cost of first pad in 
complex I 

17 - 22|] 

57 - 62'J 

i PSTGD(I,J, 2) F6.0 

J-th stage development cost of second pad in 
complex I 

23 - 28jl 
63 - 68jj 

j PSTGS(r, J, 2) F6.0 

J-th stage sustaming cost of second pad in 
complex I 

29 - 34'| 
69 - 74ij 

1 PSTGD(I,J, 3) F6.0 

i 

J-th stage development cost of third pad in 
complex I 

75-80I PSTGS(I,J,3) F6.0 

Li 

J-th stage sustaming cost of third pad in ’ 
complex I 

7th — 9th cards needed for each pad complex (family cost data, 2/card)(J=l, 5) 

.3-4 1 
43 - 441 

r 

1 ' NPFAM(I,"j) 12 

j| 

KODEF corresponding to J-th family costs 
of complex I 

5 - lOlj 

45 - 50[j 

i 

j PFAMD(I, J„J-)F6.0 

) 

J-th family development cost of first pad in . 
complex I 

11 - lef] 

51 - 56|] 

f 

1 PFAMS(I, J, 1) F6..0' 
1 

J-th family" sustainmg cost of first pad in 
complex I 

17 - 22' 
57 - 62' 

J PFAMD(I, J, 2)F6.0 

J-th family development cost of second* pad in 
complex I 

23 - 28^ 
63 - 68l 

5 f 

; PFAMS(I„J, 2) F6.0 

J ) 

J-th family sustaming cost of second pad in 
complex I 

OQ _ o4Jil ( 

PFAMD(I,J,3)F6.0 

J-th family development cost of third pad in 
complex I 

35 - 40l 
75 - soil 

PFAMS(I, J, 3) F6. 0 

J-th family sustaimng cost of third pad’ in 
complex I 


10th and 11th cards needed for each pad complex (mtegration cost data, 3/card)(J=l; 5) 


9 - llj] 
33 ~ 35j 
57 - 59y| 


NPINTL(I, J) 13 


KODEF of lower group corresponding to J-& 
integration cost of complex I 


-7 




2nd card 'needed forieach mission 

3 — 12 PIjR(I) F10.2 Payload recurring cost for mission on card I 

13 —22 PLS(I) * F10.2 Payload sustaining >cost for mission on card I 

^Currently, any value ^1.0 indicates that mission I is to be performed by only 
reusable vehicles. 
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Card' 

Columns 

Variable 

Name 

Format 

i 

Description and Comments 

'23 - 32 

PLD(I) 

. RIO. 2 

Payload development cost for mission on card I 

33—57 

Blank 

25X 

Blank 

58-67 

PLMD(I) 

F10.2 

Maximum diameter of payload for mission on* 
card I 

68-69 

NPLS(I) 

12 

Code for payload stabilization requirement 
for mission on card I 

0 — No requirement 

1 — Must be spm stabilized 

2 — Must not be spin stabilized 

70-71 

MR(I) 

12 

Code for man ratmg requirement for mission 
on card I 

0 — No requirement 

1 — Must be man rated 

72-73 

LTR(I) 

12 

Code for launch site of mission on card I 

1- ETR 

2- WTR 

74-75 

NRR(I) 

12 

Nmnber of restarts required for mission on 
card I 

76-77 

Blank 

2X 

Blank 

78-80 

IVEHA(I) 

t 

13 

A prion vehicle assignment for mission on- 
card I 

If no vehicle assigned = 0 
Otherwise' = KOBE V~of "vehicle 

t 


Last mission card must be followed by blank card. 
L 

Vehicle Cards (Input only if IV > 0) J=l, NV < 60 


1-8 

VEH(I,^ 

J), 

412 


1=1,4 i 



9-21 

B1(J) 1 


El'3.6 

22-34 

B2(d) 


E13.6 

35-47 

B3(J) 


E13.6 

48-60 

B4(J) 


E13.6 

79-80 

KODEV(J) 

12 


KODE of istage in Ith position, starting with 
lowest stage, for vehicle on card J 


Payload versus velocity curve constants for 
performance evaluation of vehicle on card J 
PL = EXP(B1-B2*V-B3/(B4-V)) 


# of vehicle on card J 
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"Card' . 
Columns 

Variable 

Name 

Format 

Description and Comments 

2nd’ card needed for each vehicle „ 

t 


NVS(J) 

12 

Code for stabilization of velncle on card J | 

1 — Is spin stabilized 

2 — Is not spin stabilized 


MPV(J) 

12 

Code for man ratii^ of vehicle on card .J 

0 — Is not man rated 

1 — Is man rated' 

8—9 

NRP(J) 

12 

Number of restarts possible for vehicle on 
card J 

10-12 

NPAD(1, J) 

13 

KODEP of pad complex at ETR from which 
vehicle J can be launched 

13-15 

NPAD(2, J) 

13 

KODEP of pad complex at WTR from which 
vehicle J can be launched 

16-18 

NYP(1, J) 

13 

1st year J-th vehicle can be flown from ETR 

19-21 

NYP(2, J) 

13 

1st year J-th vehicle can be flown from WTR 

Last vehicle card must be followed by blank card. 

StaRe Performance Cards 

(Input only if NOPT = 2 on control card) I ^<?40^ ' ^ 

1-4 

KOBE (I) 

14 

Reference number of stage on card I (usedllo 
check order of cards) 

5 — 9 

NST(I)^ 

THRT(I) 

DIAM;(i) 

15 

Classification of stage on card I 

10-19 

FIO.O 

Stage thrust 

20-29 

FIO.O 

Stage diameter 

30-39 

TSL(I)^ 

lent|i) 

J 

WTFU(I) 

FIO.O 

Stage sea-level thrust 

40-49 

FIO.,0 

Interstage length reqmred to clear engines 

50-59 

FIO.O 

Stage fuel weight 

60-69 

WTIN(I) 

FIO.O 

Stage total inert weight 

70 - 79 

ISP(I) 

FIO.O 

Stage vacuum specific impulse 


Last card of total data deck must be blank card. Last|gm:io:]fmauc.e p^ai^ 
followed by blank card. ’ - — - 

> r_- -g.c\ 5.1^ ^ y ~ ^ 
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Appendix B 
SAMPLE CASE 


B.l DESCRIPTION 


The output from a sample case is presented m this Appendix. Data is synthesized and 
no sigmficance should be attached to the values used. The listing includes a module 
map so that storage requirements are defmed for each subroutine and common block. 
The program also prints out input data for easy reference and to provide a check on 
punched data. 

Each section of output is described m detail. 

(1) STAGE COST DATA includes stage title or identifying name, recurring cost 
of first umt and learmng curve (LC) factor for hardware, ETR, and WTR 
recurring cost respectively. If any stage has jump — discontinuous form of 
recurring cost for any of the above three types, then the second line provides 
relevant mformation. Development and sustainmg costs for each stage are 
listed along with years of availability referenced to the launch base year. 

j 

Each stage may belong to at most four "shared cost groups^" whose reference 
numbers are listed on the output. Each group number is referenced to the 
"Shared Cost Data" which follows this section. "Batch Pact" defines the 
number of years over which vehicles may be considered as produced in one 
period of time for learning curve purposes. 

(2) SHARED COST DATA includes data on each shared cost group which was 
referenced m (1) above. These groups may be families such as the Titan 
family or they may be subsystems, such as a guidance system shared by 
several stages. Total development cost for any vehicle equals the sum of 
the development costs for each of its component stages plus any development 
costs for any shared groups associated with these stages plus any integration 
development costs required. 



(3) INTEGRATION COST DATA are always between "families." K a specific 
stage-to-stage integration cost is desired, each stage must be put in a shared 
cost group by itself. Thus, many shared cost groups in (2) above will nave 

no associated non-recurrmg costs. These groups will, however, be mtegrated . 
with otiber shared cost groups which do have an integration non-recurring cost. 

(4) PAD COST DATA lists the complex reference number, identifying name and 
location, ce.g. TITE represents Titan ETR complex, and the next entry shows 
the maximum number of launches per year per pad at this complex. All 
possible combmations of pad-related costs are listed with their respective 
values for each pad. Provision for a third pad at each complex has been 
made although the program currently ignores ail third pad costs. 

(5) MISSION MODEL DATA includes mission internal reference number, identifymg 
name, total AV required, payload required m lbs., priority value, launch site 
identification, (1 = ETR, 2 = WTR), and launch rate schedule by year. 

(6) Input Data Totals includes total number of each input item along with other 
pertinent information from control card. 

(7) QUANTITIES BRANCHED UPON lists every non-zero, non-recurring cost or 
"budget option" which the algorithm will consider in the optimization process 
along with its availability status. The reference number listed is used in 
the optional logic output described in (9). 

(8) VEHICLE/MISSION CAPABILITY is a matrix of final vehicle-to-mission 
compatibility presenting the results of subroutmes CAPABL and AVAIL. 

Each vehicle ishsted by stage components and mternal reference number. 

The vehicleXnission number on the top line represents the mission-year 

j 

combination number (NM) while the mission number only is given on the 
following Ime at the top of the matrix. Separate entries are provided for 
each vehicle and laimch site combination. 

(9) BRANCH AND BOUND NODE VALUES presents optional information which 
enables the user to check the internal logic of the algorithm Each node is 
given reference number which it keeps until its associated total bound 
exceeds the value of a known solution. (**** represents a very large number, 
denotmg an unfeasible combination) . The node number from which branching 
IS takmg place is provided in the second column. The last new node to be 
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generated at each branch is given the reference number of its parent node for 
continuily. The reference number of the cost item under consideration (see 
(7) on preceding page) is listed in the next column along with the appropriate 
sustammg year for that node. (0 represents no development or sustaming 

10_ t", — 

for that cost item) The recurring, non-recurring and total lower boimds are 
then-pi'ovided so that each branch m the decision tree is represented. NEW 
GUESS alerts that a final solution has been found. The value printed represents 
the least cost solution found at that time. If some pad costs and small sustaming 
costs were ignored by the algorithm, then these extra costs are computed and 
added to the lower bound of the corresponding node. The values of these costs' are’ ^ 
printed out below the node information for the possible solution under con- 
sideration. When the optimum solution has been found — the least cost^possible 
solution already investigated — this fact is designated below the associated 
node information 

(10) Optimums Launch Vehicle Assignment ~ The optimum launch vehicle for each 
mission-year combination is printed out — as well as an array of mission 
information for easy reference. The "Number of Launches" represents the 
launch rate by year multiplied by the priority factor and the number of trips 
required by the associated vehicle to satisfy the mission payload requirements. 

Sections (9) and (10) are repeated using recurring cost values modified by learnmg 
curve effects. The optimum solution at the end of this iteration is so designated. 

If no new case data is input, then the normal termmation of the run is designated by 
END OF DATA - JOB COMPLETE. 

The sample case meluded in this Appendix required 0.6 minutes on the 360/67 available 
at Ames Research Center, Moffett Field, California. Estimating run time is quite 
difficult for a new set of data since the number of solutions "close to" the optimum 
solution determines how large the decision tree will be and^,^ as a consequence, how 
much computer time must be expended. As a general rule, the computer time increases 
linearly with the number of missions in the mission model and exponentially with the 
number of decision items determined by the stage, shared group, integration and pad 
cost input. ' ^ 
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The flow diagrams in Appendix G define all non-normal exits from the algorithm in 
CHOOZ. Each non-normal termination of a case is denoted by a print-out of the 
qualifymg reason. The program then reads in new case data, if available, and proceeds 
as normal. 

B.2 SAMPLE CASE PRINTOUT 
A sample case printout follows^ 
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I rL.'^jFiCArmN } 


T.T.i'jr 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST^OVLYtNAP 

variable options used - Size«ll26976|24576l DEFAULT QPTtONISI USED 

IGNOOOO INCLUDE DECKS (HOX(l2l1N(HOXOlPK*HOX02DC»HOXO2AVfHOXD^CPrKOXOZSNI 

lEHOOoD INCLUDE OECKS|HOX02OPtHOXD2HT»KOX02PRtMOXD2LBfHOX02POI 

lEVOOOO ENTRY MAIN 

lENOOOD OVERLAY A 

lENQOOO INCLUDE DECKS<HOX02CH} 

lEUOOOO OVERLAY A 

lEHOOOO INCL UOE DECKS i KDX02HA iHQXOZHH, HDX02PF ) 


NODULE HAP 


CONTROL SECTION^ ENTRY 


NAME 

ORIGir)' 

LENGTH 

SEC NO 

NAKE 

LOCATION 

NAHE 

LOCATION 

ssegtab 


2A 

I 





MAIN 

Z6 

2004 

1 





PACK 

210D 

G8 

1 

unpack 

21S2 

ITEH 

2198 

OECISN 

21ER 

1198 

1 





AVAIL 

3380 

700 

X 





CAPARL 

' 3B50 

D98 

1 





STGNUH 

46EB 

1&74 

1 





OUTPUT 

62 6Q 

SEA 

1 





HATCH 

SSA® 

DBA 

1 





PRINT 

7AOa 

DBA 

1 



\ 


LBOUNO 

8390 

A4C 

1 





PADCST 

80Ea 

1290 

L 



V 


IHCSLOG « 

V A070 

16A 

1 






> S' 



ALOGIO 

A070 


AOSC 

IHC5SCN * 

AS 30 

lED 

1 





V 



COS 

A230 

sm 

A24C 

IHCSBXP • 

AA20 

160 

1 









EXP 

AA20 



IKCFRXPR« 

A5D0 

183 

1 



\ 






FRXPR* 

A500 



IHCECOHH* 

A758 

869^- 

F3l 

1 

I8C0H> 

A758 

\ 

FOIOCS- 

ABX4 

1HCCDHH2* 

S45 

1 

SEQDASO 

68F0 

\ 


bbd£ 

IHCFHAXI* 

C9 

1 

HAXO 

BBD6 

hiAo 

BBEE 




* 

► 







^NAHE LOCATION NAHE LOCATION 


INTSNTCK BS76 

AHAXO bCOA AHINO BCtA 





„/ 



IKCSSQRT'* 

BCAB 

149 

1 

SORT 

BCAB 

IHCFCVTH* 

bofb 

1175 

1 

ADCON* 

8DFB 





fCVIOUTP 

C40E 

IHCEFNTH* 

CP70 

512 

1 







ARlTHa 

CF70 

FIOCS* « 

O40B 

180 

1 

S6TS99 

0514 

IHCEFIOS* 

OSEB 

lUC 

1 




t 

t ' 

' 





S 

FCVAOUTP 

FCS^EOUTP 

8EA2 

C910 

FCVLOUTP 

FCVCOUTP 

BF32 

C62A 

FCVIOUTP 

INT6SNCK 

CO02 

CE13 

AQJSNTCH 

V 

OZDC 





RES899 

052E 






\ 


CL/iijinCATION 


-nutiiHiv) 


B-s; 



4 NAME QftlGI^ LENGTH SEG» ND, 


IHCERRH * 

E7oa 

SAC 

1 

IHCUDPT * 

ECB6 

398 


IHCETflCR* 

FOSO 

28E 


IKCOATflL* 

F2E0 

636 


DSCOST 

F9U 

1838 


STAGE 

lllSO 

6EA 


MISSON 

U838 

A90 


VEHCLE 

122CB 

ABO 


KONDIH 

12776 

1C 


INT 

12793 

3C0 


PADS 

12656 

37BC 


VEHRGC 

IA2E8 

3CFA 


reusbl 

19FE0 

190 


CAPHAT 

1AL70 

FAA 


FAHILY 

1D113 

200 


INTREC 

1D3E8 

lAO 


STCREC 

16528 

A70 


HISREQ 

1BB93 

6A0 


VEHIN 

1C1D6 

1F8 


CKODZE 

1C300 

6A 


SAVEGP 

1CA58 

19A 


SCRACH 

1C5F0 

53PC 


BATCH 

219FO 

780 


SAV6PT 

22170 

184 


SAVELD 

222F6 

16 


NUHBER 

22310 

2S80 


AENTAB 

2A69U 

24 



CKOOZ 

2A8B6 

183E 

2 

HATE 

24880 

042 

3 

hishat 

25400 

4C6 

3 

PERF 

258C8 

5CE 

3 


NAHE 

FtOCSBEP 

LOCATION 

OSEE 

nahe 

LOCATION 

NAME LOCATION 

NAHE LOCATION 

ER^HQN 

E70B 

IHCERRE 

E720 


> 

IHCTRCH 

F050 

ERRTRA 

FOSS 


s 


ENTRY ADDRESS 26 

TOTAL length 263F« 


STAGE COST-'OATA 


TITLE 

RECURRING LC 

RECURRING tC RECURRING LC OEVELOPKENT 

SUSTAINING 

AVAILABLE 

SHARED 

COST GROUPS 

BATCH fact 



lETR OR 

HTR) 

(ETR ONLY) 

(HTR ONLY) 




FROH TO 









SV3A 

6 89 

0 950 

6 23 

0*950 

3*27 

0 950 

0 0 


3 37 

1 

20 

1 

0 

0 

0 


$ 



AG 0 

1 87 

0 900 

1*40 

0 900 

2*50 

0.9O0 

0*0 


2 60 

1 

20 

2 

7 

0 

0 


6 



RECURRING COST TYPE 

1 FOR X 

LESS THAN 

OR • 

2 OOf TOTAL 

COST • 

2*30 

FDR X 1 

GREATER 

THAN 

2*00* 

TOTAL 

COST ■ 

P 

40 

X ♦ 

1.40 

SV3C 

7 09 

0 850 

6 43 

0 850 

3 47 

0 850 

0 0 


0 0 

1 

20 

1 

0 

0 

0 


4 



CENT 

11*65 

0*900 

4* 62 

0*900 

4 62 

0 900 

25 30 


16*00 

1 

20 

4 

0 

0 

0 


5 



T3B 

4 91 

1 000 

1*44 

1*000 

1 44 

1 OOO 

0 0 


0 0 

I 

20 

3 

8 

0 

0 


3 



T3D 

8 14 

0*950 

5 01 

0*950 

3 45 

0 950 

0 0 


0 0 

1 

20 

3 

6 

0 

0 


3 



TRAN 

6 09 

1 OOO 

0 0 

1 000 

0 0 

1 OOO 

0 0 


0 0 

1 

20 

3 

0 

0 

0 


4 



AGLT 

3 SO 

1 000 

0 0 

1 000 

0 0 

1 OOO 

17*50 


1*20 

3 

20 

2 

9 

0 

0 


5 



RECURRING COST TYPE 

2 FOR X 

LESS THAN 

DR B 

2*0O» total 

COST • 

2 30 

FOR X 1 

GREATER 

THAN 

2*00* 

TOTAL 

COST > 

0 

40 

X ♦ 

1 40 

SV3X 

6 66 

0 850 

5*76 

0 850 

2«S8 

0 850 

13*00 


0*0 

3 

20 

1 

10 

0 

0 


4 



T3H 

22*00 

0 950 

5*01 

0 950 

3*45 

0.9SO 

25*00 


0*0 

3 

20 

3 

11 

0 

0 


3 



B2S 

0 87 

UOOO 

0 10 

1 000 

0*10 

liOOO 

0 25 


0*10 

1 

20 

5 

0^ 

0 

0 


5 




shared cost data 


NO* 

TITLE 

DEVELOPHENT 

SUSTAINING 

1 

ATLS 

0 0 

4 66 

3 

TITN 

0 0 

6 00 

5 

62$ 

0*0 

0 0 

7 

AG D 

0 0 

0 0 

9 

AGLT 

0 0 

0*0 

11 

T3H 

0.0 

0 0 

2 

AfEN 

0*0 

2*50 

4 

CENT 

0 0 

c*o 

6 

T30 

0 0 

0*0 

8 

T38 

0*0 

0.0 

10 

SV3X 

0 0 

0 0 


B-6 





If. I l'I 


T 


I 


i 


5 .f 


VOUiH 4 > 

I 


[iHTEORATION COST OAT* 


(LOWER 

‘UCRODP 

UPPER 

GROUP 

RECURRING LC 

OEVELOPHENT 

SUSTAINING 

T.TN 

ACEN 

0 0 

1 000 

14 00 

0 0 

AG 0 

0*0 

1 000 

2.50 

0 0 

T3D 

AGLT 

0 D 

l.COO 

5.50 

0 0 

, TlTN 

CENT 

, 0 0 

1 OOD 

SO.OO 

0 0 

T3B 

CENT 

0 D 

i.ooo 

2 00 

0 0 

1 SV3X 

CENT 

0.0 

1 ooo 

4 00 

0 0 

AGEN 

BES 

0 0 

1»000 

2 BO 

0 0 

TlTN 

B2S 

0.0 

1 ooo 

2.60 

0 0 

t *[ CENT 

62S 

0 0 

1 000 

2 00 

0 0 

‘ T3H 

AGLT 

0 0 

1 ooo 

5 00 

0 0 


4 PAD COST DATA 


^NO 

CQKPL6X 

LAUNChlE5/YR 






PAD 

1 

PAD 

2 

PAD 

3 









DEV 

t 

50ST 

DEV 

SUST 

DEV 

SUST 

1 

TITE 

2 OO 

T3B 

STAGE 




0.0 

0.0 

0.0 

0 0 

0 0 

0 0 




AG D 

STAGE 




0 0 

0 D 

0 0 

0 0 

0 0 

0 0 




62$ 

STAGE 




0 0 

0 0 

0 0 

0 0 

0 0 

0 0 




ce«T 

STAGE 




20.00 

10.00 

0 0 

0 0 

0 0 

0 0 




T30 

stage 




0 0 

0 0 

0 0 

0 0 

0 0 

0.0 




TRAM 

STAGE 




0 0 

0 0 

0 0 

0 0 

0 0 

0 0 




AGLT 

STAGE 




0 0 

0 0 

0 10 

0 10 

0 0 

0 0 




T3H 

STAGE 




0.0 

0 0 

0 0 

0.0 

0 0 

0 0 




TlTN 

SNARED 




0 0 

0 0 

0 10 

0 10 

0 0 

0 0 




T9B 

SHARED 




0 0 

0 0 

0 0 

0 0 

0.0 

0 0 




AGEN 

SHARED 




0 0 

0 0 

0 0 

0 0 

0 0 

0 0 




AG D 

SHARED 




0 0 

0 0 

0 0 

0 0 

0.0 

0 0 




B2$ 

shared 




0 0 

0 0 

0.0 

0 0 

0 D 

0 0 




INTEGRATION 

GF 

TlTN 

AND AGEN 

h 

0 0 


0 10 


0 0 




INTEGRATION 

OF 

TlTN 

AND AG 0 


0.0 


0 0 


0 0 




INTEGRATION 

DP 

T3B 

AND AGEN 


0 0 


0 0 


0 0 




INTEGRATION 

OF 

T3B 

AND AG 0 


0 0' 


0 0 


0 0 


INTEGRATION 

OF 

AGEN 

AND 

B2S 

* 

0 0 


0 0 


0 

0 

TSB STAGE 





D 0 * 

0 0 

0 0 

0 0 

0 0 

0 

0 

AG V stage 





0 0 

0 0 

0 0 

0 0 

0 0 

0 

0 

B2S STAGE 





0 0 

0 0 

0 0 

0 0 

0.0 

0 

0 

CENT STAGE 





20 00 

10 00 

20.00 

10 00 

0 0 

0 

0 

T3D stage 





0 0 

0 0 

1 00 

1 00 

0.0 

0 

0 

TRAN STAGE 





0 0 

0 0 

0 0 

0 0 

0 0 

0 

0 

AGLT STAGE 





0 0 

0 0 

0 0 

0 0 

0 0 

0 

0 

T3H STAGE 





0 0 

0 0 

0 0 

0 0 

0 0 

0 

0 

TlTN shared 





0 0 

0 0 

0 0 

0 0 

0.0 

0 

0 

T36 shared 





0 0 » 

0 0 

l.oo 

1.00 

0 0 

0 

0 

AGEN SHARED 





0 0 

0 0 

0 0 

0 0 

0 0 

0 

0 

AG D SHARED 





0 0 

0 0 

0 0 

0 0 

0 0 

0 

0 

B2S SHARED 





0 0 

0 0 

1.00 

1 00 

0.0 

0 

0 

INTEGRATION 

OF 

TlTN 

AND 

AGEN 


0 0 


0 0 


0 

0 

INTEGRATION 

OF 

TlTN 

and AG 0 


0 0 


0 0 


0 

0 

INTEGRATION 

OF 

T3B 

ANO 

AGEN 


0 o 


1 00 


0 


INTEGRATION 

OF 

T3B 

ano 

AG 0 

V 

0 0 


0 0 


0 

0 

INTEGRATION 

OF 

AGEN 

AND 

62$ 


0 0 


1 00 


0 

0 

SV3A STAGE 





0.0 

0 0 

0 0 

0 0 

0.0 

0 

0 

AG 0 STAGE 





0 0. 

0 0 

0 0 

0 0 

0 0 

0 

0 

SV3C STAGE 





□ o' 

0 0 

0 0 

0 0 

0.0 

0 

0 

cent stage 





0 0 

0 0 

0 0 

0 0 

0 0 

0 

0 

SV3X STAGE 





D Q 

0 0 

0 0 

0 0 

0*0 

0 

0 

atls shared 





20 00 

5 00 

0 0 

0 0 

0 0 

0 

0 

AGEN shared 





0.0 , 

0 0 

0 0 

0.0 

0 0 

0 

0 

AG D SHARED 





D 0 

0 0 

0 0 

0 0 

0 0 

0 

0 

CENT SHARED 





0 0 

0 0 

0 0 

0.0 

0.0 

0 

0 

SV3X SHARED 





0 0 

0 0 

0 0 

0 0 

0 0 

0 

0 

INTEGRATION 

OF 

ATLS 

AND 

AGEN 


0 0 


0 0 


0 

0 

INTEGRATION 

OF 

ATLS 

AND AG 0 


0 0 


0 0 


0 

0 

INTEGRATION 

OP 

ATLS 

AND 

CENT 


2 00 


0 0 


0 

0 

INTEGRATION 

OF 

SV3X 

AND 

AGEN 


0 0 


0 0 


0 

0 

INTEGRATION 

OF 

SV3X 

ANO 

CENT 


0 0 


0 0 


0 

0 

SV3A STAGE 





0 0 

0 0 

0.0 

0 0 

0 0 

0 

0 

AC D STAGE 





0 0 

0 0 

0 0 

0 0 

0 0 

0 

0 

SV3C STAGE 





0.0 % 

0 0 

0 0 

0 0 

0.0 

0 

0 

CENT STAGE 





0.0 

0 0 

0.0 

0 0 

0 0 

0 

0 

SV3X STAGE 





0 0 

0 0 

0 0 

0 0 

0 0 

0 

0 

ATLS SHARED 





20.00 

5 00 

0.0 

0 0 

0.0 

0 

0 

AGEN SHARED 





0 0 

0.0 

0.0 

0 0 

0 0 

0 

0 

AG D SHARED 





0 0 

0 0 

0 0 

0 0 

0 0 

0 

0 



ir 


Tt* 


B-7 



CENT SHARED 





0 0 

0*0 

0 0 

D G 

G 0 

0 

0 

5V3X SHARED 





0 0 

0 0 

0 D 

D 0 

0 0 

0 

0 

INTECRATION 

OF 

ATtS 

AND 

AGEN 


0 0 


0 0 


0 

0 

INTEGRATION 

OF 

ATLS 

AND 

AG D 


0 0 


0 0 


0 

0 

IMTEGRATIOK 

OF 

ATL5 

AND 

CENT 


2*00 


0 0 


0 

0 

INTEGRATION 

OF 

SV3K 

AND 

AGEN 


0*0 


0 G 


0 

0 

integration 

OF 

SV3X 

AND 

CENT 


0 0 


0 0 


0 

0 


MISSION HGOEL 


MISSION 

VELOCITY 

PAYLOAD 

PRIORITY 






LAUNCH SCHEDULE 






71 

72 

73 

74 

75 

76 

1 KARS71 

AI500 

1100 

1 00 

1 

2 

0 

0 

0 

0 

0 

2 PtONER 

^900G* 

460. 

1 00 

1 

0 

1 

1 

0 

0 

0 

3 KARS73 

AOOOG 

6000 

1 oo 

1 

0 

0 

2 

0 

0 

0 

A HERCRY 

3a90G 

1000. 

.0 50 

1 

0 

0 

0 

0 

1 

0 

5 CRDTrT 

A9$00» 

800. 

O.SO 

1 

0 

0 

0 

1 

0 

0 

6 HARS75 

39400 

3000. 

0 so 

1 

0 

0 

0 

0 

2 

0 

7 COMET 

37200. 

2000 

0.50 

1 

0 

0 

0 

0 

0 

2 

G ASTRA 

26300 

7000 

O.SO 

2 

0 

0 

0 

0 

0 

1 

9 RELTIV 

14200 

2000 

0 50 

2 

0 

0 

0 

1 

0 

0 

110 PIONOE 

31400 

lOOO 

O.SO 

2 

0 

0 

0 

0 

1 

0 

U ATS 

33600 

4000 

1*00 

2 

0 

1 

1 

0 

0 

0 

112 OREIAY 

14200. 

2000. 

0 so 

2 

0 

0 

0 

0 

0 

1 

USAHSC 

33600 

4100. 

0 so 

2 

0 

0 

0 

0 

1 

0 

11A USAHSH 

30000. 

6800. 

0 so 

2 

0 

0 

0 

0 

0 

2 


B-8 



I J 1 ir -tHU M)1) 


ri ''‘Hc*>vtifi 


r iitJuiuns 


NUMBER OF STAGES U 

number of vehicles 20 

NUMBER OF FAMILIES 11 

NUMBER or INTCCRATIOM COSTSlO 

NUMBER OF PAD COMPLEXES 4 

NUMBER OF MISSIONS 14 

NUMBER OF YEARS 6 

LAUNCH BASE YEAR 71 

TOTAL COST ESTIMATE 470 00 

OPTION NUMBER 3 


QUANTITIES 

BRANCHED UPON 





DEVELOPMENT 

SUSTAINING 


TEAR AVAIL 

LAST YEAR 

1 

0 0 

3 37 

SV3A stage hardware 

1 

6 

2 

0 0 

10 00 

SV3A STAGE ETR 

1 

6 

3 

0 0 

2.60 

AG 0 STAGE HARDWARE 

1 

6 

4 

25 30 

16 00 

CENT stage hardware 

1 

6 

S 

0 0 

10 00 

CENT STAGE WTR 

1 

6 

6 

17 SO 

1 20 

AGLT STAGE HARDWARE 

3 

6 

7 

13 00 

0 0 

SV3X STAGE HARDWARE 

3 

6 

8 

25 00 

0.0 

T3K STAGE HARDWARE 

3 

6 

9 

0 25 

0.10 

B2S STAGE HARDWARE 

1 

6 

10 

0 0 

4 66 

ATLS SHARED WARCMARE 

1 

6 

11 

0 0 

5 00 

AtLS SHARED ETR 

1 

6 

12 

0 0 

5 00 

ATLS SHARED WTR 

I 

6 

13 

0 0 

6 00 

TlTN SHARED HARDWARE 

1 

6 

14 

0,0 

2.50 

ACEN SHARED HARDWARE 

L 

6 

IS 

14 00 

0 0 

INTEGRATION OF TITN AND ADEN HARDWARE 

1 

6 

16 

2«50 

0.0 

INTEGRATION OF T30 AND AG 0 HARDWARE 

1 

6 

IT 

5.50 

0 0 

INTEGRATION OF T3D AND ACLT HARDWARE 

3 

6 

18 

00 00 

0 0 

INTEGRATION OF TITN AND CENT HARDWARE 

1 

6 

19 

0 0 

5 00 

INTEGRATION QP TITN AND CENT ETR 

1 

6 

20 

0 0 

5 00 

INTEGRATION OF TITN AND CENT WTR 

1 

6 

21 

2 00 

0 0 

INTEGRATION OF T3B AND CENT HARDWARE 

1 

6 

22 

4 00 

0 0 

INTEGRATION OF SV3X AND CENT HARDWARE 

3 

A 

23 

2 80 

0 0 

INTEGRATION OF AGEN AND B2S HARDWARE 

I 

6 

24 

2 SO 

0 0 

INTEGRATION OF TlTN AND B2S HARDWARE 

1 

6 

25 

2 80 

0 0 

INTEGRATION OP CENT AND B2S HARDWARE 

1 

6 

26 

5.00 

0 0 

INTEGRATION OF T3H AND AGLT HARDWARE 

3 

6 

27 

20.00 

10.00 

CENT STAGE AT PAD THE 

1 

6 

28 

20 00 

10 00 

CENT STAGE AT PAD TITW 

1 

6 

29 

20 00 

5.00 

ATLS SHARED AT PAD ATlE 

I 

6 

30 

0 0 

2.00 

INTEGRATION OF ATLS AND CENT AT PAO ATLE 

1 

6 

31 

20.00 

5 00 

ATLS SHARED AT PAD ATLW 

L 

6 

32 

0 0 

2.O0 

INTEGRATION QP ATLS AND CENT AT PAD ATLW 

1 

6 



V! if ^ notj I 
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J. 


I » 


C itO'i**' 'i 





L.M:c-ooii()i5u 


V6HICL6/KISSIOH CAPABILITY 
(1 > PaSSIBLEi O • IMPOSSIBLE! 

11111111112222222222333S33S333AA44AA 


VEHICLE 

/ MISSION 


1 

2 

3 

4 

5 

6 

7 

6 

9 

0 

1 

2 

3 

4 

5 

678901234567890123456789012345 

HISSION NVHBER 


1 

2 

2 

3 

4 

s 

6 

7 

6 

9101111121314 

1 T39 

AG D 


E 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Q 

2 T3B 

AG D 

B2S' 

E 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

3 T3B 

CENT 


E 

0 

0 

0 

0 


0 

0 

1 

0 

0 

0 

0 

0 

0 

G 

0 

A T3B 

CENT 

B2S 

E 

1 

1 

1 

0 


0 

0 

1 

0 

0 

0 

0 

0 

0 

G 

0 

S T3D 

TRAN 


E 

0 

0 

0 

0 


0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

6 T3D 

TRAN 

B2S 

E 

1 

0 

0 

0 


0 


1 

0 

0 

0 

0 

0 

0 

0 

0 

7 T3D 

AG 0 


E 

1 

0 

0 

0 


0 


1 

0 

0 

0 

0 

0 

0 

G 

0 

8 T3D 

AG D 

B25 

E 

1 

1 

1 

0 


1 


1 

0 

0 

0 

0 

0 

0 

0 

0 

9 T3D 

ACLT 


E 

0 

0 

1 

0 


0 


1 

0 

0 

0 

0 

0 

0 

0 

0 

10 T30 

aglt 

B2S 

E 

0 

0 

1 

G 


1 


1 

0 

0 

0 

0 

0 

0 

G 

G 

11 T30 

CENT 


E 

1 

1 

1 

1 


1 


1 

0 

0 

0 

0 

0 

0 

0 

0 

12 T3Q 

CENT 

B2S 

E 

1 

1 

1 

1 


1 


1 

Q 

0 

0 

0 

0 

0 

0 

G 

13^SV3A 

AG D 


E 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

14 SV3A 

AG 0 

B2S 

E 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

15 SV3C 

CENT 


E 

0 

0 

0 

0 


0 

0 

t 

0 

0 

0 

0 

0 

0 

0 

G 

16 SV3C 

CENT 

B2S 

E 

1 

0 

0 

0 


0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

17 SV3X 

CENT 


E 

0 

0 

0 

0 


0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

>16 $V3X 

CENT 

B2S 

E 

0 

0 

0 

0 


0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

19 T3H 

AGLT 


E 

0 

0 

1 

1 


1 

1 

1 

0 

D 

0 

0 

0 

0 

0 

0 

80 T3M 

aglt 

B2S 

g 

0 

0 

1 

1 


1 

1 

1 

0 

0 

0 

0 

0 

Q 

0 

0 

1 T3B 

AG 0 


V 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 

0 


0 

G 

2 T36 

AG D 

B2S, 

w 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 

0 


0 

0 

3 738 

CENT 


N 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 


1 


1 

1 

4 736 

CENT 

82S^ 

M 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 


1 


1 

1 

5 T30 

TRAN 

f 

H 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 


1 


1 

1 

6 T30 

TRAN 

B2S 


0 

0 

0 

0 

0 

0 

0 

0 

1 

X 

0 


1 


1 

1 

7 T3D 

AG D 

- 

H 

0 

0 

0 

0 

0 

0 

0 

0 

1 

I 

0 


1 


1 

1 

8 T30 

AG D 

B2S 

N 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 


1 


U 1 

9 T30" 

AGLT 


W 

0 

0 

0 

Q 

0 

Q 

0 

0 

1 

1 

0 

0 

1 


1 

1 

10 T3D 

aglt 

BZS 


0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 

1 


1 

X 

11 T30 

CENT 


H 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

1 

1 

1 

1 

I 

12 T30 

CENT 

B2S 

H 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

1 

1 

1 

1 

1 

1 

13 SV3A 

AG 0 


H 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 

0 

1 

0 

0 

14 SV3A 

AG D 

B2S 

W 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

G 

0 

1 

0 

0 

IS SV3C 

CENT 


H 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

1 

1 

1 

0 

0 

16 SV3C 

CENT 

82S 

H 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

1 

1 

1 

1 

0 


17 

SV3X 

CENT 


H 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 1 

1 1 

1 

18 

SV3X 

CENT 

B2S 

N 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 1 

1 1 

1 

19 

T3H 

AGLT 


W 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 1 

1 1 

1 

20 

T3H 

AGLT 

B2S 

H 

0 

0 

0 

0 

0 

0 

0 

0 

1 

t 

1 

0 1 

1 t 

1 


CLASS' r .('‘nor} 


IB-IO 





ihiunfht 






f 


I t 


i-' 1 


A R A 

N C H A 

N D 

BOUND 

NODE 

VALUES 


IDDE 

BRANCHED 

COST 

YEARS 

RECURRING 

NQN'’f(ECURRIKG 

TOTAL 

ND 

FROM 

HO 

SUSTAIN 

BOUND 

SOUND 

SOUND 

2 

I 

13 

0 


0 0 

****«**«* 

3 

1 

13 

1 


6 00 

**•«***•• 

4 

* 1 

13 

2 


12 00 

«***««•»« 

5 

1 

13 

3 


' 18 00 

*«**««*** 

A 

1 

13 

4 

«*«#«**** 

24 00 

*«****«*« 

7 

1 

13 

5 

239 93 

41 67 

281*60 

I 

1 

13 

6 

216 86 

47 67 

264 53 

6 

1 

15 

0 

272 33 

216 85 

489 18 

1 

I 

IS 

A 

216 86 

61 67 

278.53 

6 

1 

18 

0 

228*56 

107 90 

336 46 

I 

1 

le 

A 

216 86 

141 67 

358 53 

5 

7 

7 

0 

***«*«*«« 

30 00 

«****»**• 

7 

7 

7 

A 

239 93 

54 67 

294 60 

5 

7 

ZZ 

0 

********* 

43 00 


7 

7 

22 

6 

239 93 

58 67 

298 60 

5 

7 

10 

0 

*•**•■«** 

47.00 


4 

7 

10 

1 


51 66 


3 

7 

10 

2 

««««****« 

56 32 


2 

7 

10 

3 

*****««*• 

60 98 

««**«*«*« 

8 

7 

10 

4 


65 64 

«»« ««••«« 

9 

7 

tio 

5 


70 30 

»**«•*«*« 

7 

7 

10 

A 

239 93 

86 63 

326 56 

9 

7 

12 

0 

**«**»*«• 

74 96 

********6 

8 

7 

12 

1 N 

••*•***•* 

79 96 

««*•****• 

5 

7 

12 

2 

****•*«•« 

84 96 


4 

7 

12 

3 


89 96 


3 

7 

12 

4 

•«••««*«* 

94 96 


2 

7 

12 

5 

**•«***«• 

99 96 

**«««**«* 

7 

7 

12 

6 

239 93 

116 63 

356 56 

9 

A 

6 

0 

«««•«••*• 

50.00 

**««*•«•• 

6 

6 

6 

6 

226 56 

107 90 

336 46 

9 

6 

' 8 

0 

«««•««««* 

67 50 

•**«««**• 

6 

6 

8 

6 

228 56 

107 90 

336.4A 

9 

fr 

lA 

0 

*•*•*««** 

92 SO 

«»««***** 

6 

A 

16 

6 

228 56 

107 90 

336 46 

9 

A 

23 

0 

•«**«•*«* 

95 00 

«**•****« 

6 

6 

23 

A 

228.56 

107 90 

336 46 

9 

6 

2A 

0 

««***«*«* 

97 80 

********* 

6 

6 

26 

A 

228 56 

107 90 

336 46 

9 

6 

14 

0 

*«»•***** 

102 80 

********* 


8 

6 

14 

1 

»«*«««*** 

105.30 


5 

6 

14 

2 

*«*«**•«« 

107 80 

«*»«***** 

4 

6 

14 

3 

««*«*»**« 

110 30 

••*•«**•« 

3 

6 

14 

4 

«**•****» 

112 80 

********* 

2 

6 

14 

5 

243 39 

117.90 

361 29 

6 

6 

14 

6 

228 56 

120 40 

348 96 

9 

A 

»3 

0 

*«*****•« 

117 60 

*•*•«•*** 

8 

6 

3 

1 

«•«««*«** 

120 40 

********* 

5 

A 

3 

2 

252 41 

128 50 

380 91 

4 

6 

3 

3 

250 

131 10 

301 54 

3 

6 

3 

4 

245 14 

130 62 

375 77 

10 

6 

3 

5 

237 92 

132 74 

370 66 

6 

A 

3 

6 

228 56 

133 40 

361 96 

9 

7 

31 

0 

••••«*««* 

104 96 

**«•***•* 

8 

7 

31 

! 

*«««*«*** 

129*96 

*«*••««»• 

11 

7 

31 

2 

**«*«**«* 

134 96 

********* 

1? 

7 

31 

3 

«*•**•««* 

139.96 

****«**•• 

13 

7 

31 

4 ^ 


144.96 

♦«****«** 

14 

7 


5 


149 96 

*«**««*** 

7 

7 

31 

6 

239 93 

166 63 

406 56 

14 

1 

4 

0 

226 56 

187 90 

'416 46 

13 

1 

4 

1 

228.56 

229 20 

457 76 

12 

1 

4 

2 

228.56 

245 20 

473 76 

U 

1 

4 

3 

218 24 

263.14 

481 38 

9 

1 

4 

4 

2IB 24 

279 14 

497 38 

8 

1 

'>4 

5 

216 86 

246.97 

463 83 

1 

1 

4 

6 

216 86 

262.97 

479 83 

12 

2 

»3 

0 

«*«***»*« 

115 30 

«•«**•**« 

11 

2 

3 

1 

•«•*••*«* 

117.90 

********* 

9 

2 

'3 

2 

257 88 

126 00 

363.88 

15 

2 

3 

3 

255 91 

126.60 

364.51 

16 

2 

3 

4 

250 61 

127 15 

377.77 

17 

2 

3 

5 

243 39 

128.30 

371.69 

2 

2 

3 

6 

243 39 

130 90 

374 29 

NEW 

GUESS « 

361 96 












6 




228 56 

133 40 

361 96 


EXTRA PAD COSTS > 0 SO 

i 

> EXTRA PAD t SHALL SUST COSTS ■ 4.8S 

>NEH GUESS » 366 81 

*«•*«*»«*«*«« POSSIBLE SOLUTION »**»*«««•*** 
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Cl - 


HI. 


C 111). I II.! 


6 22S.56 138 28 366.81 

THIS ASSIGNMENT tS OPTIMUM AT A TOTAL COST OP 366.G1 


MISSION 

characteristic 

PAYLOAD 

RETURN 

LAUNCH 

NUMBER 

QPTIKUM 


TITLE 

VELOCITYCFT/SEC) 

UBS) 

PAYLOAD 

YEAR 

OP LAUNCHES 

LAUNCH vehicle 


HAR571 

41500, 

uoo 

0 

1971 

2 00 

730 

AG 0 

E 

PIONER 

49000 

460 

0, 

1972 

1 00 

T3D 

AG 0 B2S 

£ 





1973 

1 00 

73D 

AC 0 B2S 

E 

HAftSTd 

40000. 

6000 

0, 

1973 

2.00 

T3H 

AGLT 

E 

HERCRY 

30900. 

1000 

0 

1975 

0 50 

73B 

AC 0 B2S 

E 

GRDTRT 

49500 

BOO 

0 

1974 

0 50 

T30 

AG D B2S 

e 

HARS75 

39400. 

3000 

0. 

1975 

1 00 

T30 

AG 0 

E 

COMET 

37200 

2000, 

0 

1976 

1 00 

T3D 

AG 0 

E 

ASTRA 

2 6300 

7000 

0 

1976 

0 50 

T38 

AG 0 

H 

RBLTIV 

14200 

2000 

0 

1974 

0 50 

T3B 

AG 0 

M 

PtONOE 

51400, 

1000, 

0 

1975 

0 50 

T3M 

AGLT B25 

U 

ATS 

33600 

4000, 

0 

1972 

1,00 

T3D 

AG 0 






1973 

1 00 

T3D 

AG t> 

V 

DRELAY 

14200 

2000, 

0, 

19T6 

0 so 

T3B 

AG D 

H 

USAHSC 

33600, 

4100, 

0 

1975 

0.50 

T3D 

AG 0 

V 

USAHSM 

30000, 

6800, 

0 

1976 

1 00 

T3D 

AG 0 

M 


I 



'B-12 



1 ft h 

N C K 

AND 

BOON 

0 NODE 

VALUES 


400E 

BRANCHED 

COST 

YEARS 

RECURRING 

NDN-RECURRINC 

TOTAL 

NO* 

FROM 

MO* 

SUSTAIN 

BOUND 

BOUND 

BOUND 

2 

1 

13 

0 


0 0 

«**•««**« 

3 

1 

13 

1 

«******«« 

6 00 

*•****««* 


1 

13 

2 


12 00 


5 

1 

13 

3 

•***«**«* 

18 00 

«««*«*«*« 

6 

1 

13 

4 


?4 00 

««»«**«** 

7 

1 

13 

5 

243 28 

43 12 

266 41 

I 

1 

13 

6 

220 90 

49 12 

270 03 

6 

1 

15 

0 

275 69 

217*54 

493 22 

1 

1 

15 

6 

220 90 

63*12 

284 03 

6 

1 

le 

0 

236 33 

107*90 

344 23 

1 

1 

16 

6 

220 90 

143 12 

364 03 

5 

7 

7 

0 

********* 

30 00 


7 

7 

7 

6 

243 26 

56 12 

299 4! 

5 

7 

22 

0 

4*«***«** 

43 00 


7 

7 

22 

6 

243*26 

40 12 

303*41 

S 

7 

10 

0 

***«***«» 

47 00 

**9**««*« 

4 

7 

10 

1 

*«•«*«*«• 

51 64 

«s*»aa«a* 

3 

7 

10 

2 

•*«*«***« 

56 32 

aaaaaaaaa 

2 

7 

10 

3 


60 9B 


B 

7 

10 

4 

*«•**«*** 

65 64 

aaaaaaaaa 

9 

7 

10 

5 

*««**•**• 

70 30 

aaaiaaaaa* 

7 

7 

10 

6 

243 28 

68 08 

331 37 

9 

7 

12 

0 

*«**«*«*• 

74 96 

«•«*«««»* 

e 

7 

12 

1 

***«*«««« 

79 96 

a*aaaaa*« 

s 

7 

12 

2 

*•«****«« 

84 96 

aaaaaaaa* 

4*' 

7 

\2 

3 

*«*«««*•* 

89 96 

a*«*aa*aa 

3 

7 

12 

4 


94 96 

a*«a*a4ia« 

2 

7 

12 

S 


99.96 


7 

T 

12 

6 

243 26 

118 08 

361 37 

9 

6 

.6 

0 

***•***«• 

50*00 

**«.aaaaa* 

6 

4 

4 

4 

234 33 

107.90 

344 23 

9 

6 

8 

0 


67*50 

aaaaaaaaa 

6 

6 

8 

6 

236 33 

107 90 

344 23 

9 

6 

16 

0 

«**•*«*«« 

92 50 

aaaaaaaaa 

6 

4 

l4 

4 

236 33 

107.90 

344 23 

9 

4 

23 

0 

«9«4t9**9* 

95*00 

aaaaaaaaa 

6 

6 

23 

4 

236 33 

107 90 

344*23 

9 

4 

26 

0 

**«s*«**s 

97 80 

aaaaaaaaa 

6 

4 

26 

4 

236 33 

107 90 

,344 23 

9 

4 

14 

0 

***9***** 

102 80 

aaaaaaaaa 


\ » 


"t 6 


1 


105 30 

aaaaaaaaa 

5 6 

14 

2 


107 RO 


4 6 

14 

3 


110 30 

aa«aaaaaa 

3 6 

14 

4 


112 80 

aaaaaaaaa 

2 6 

14 

5 

251 60 

117 90 

369 50 

6 6 

14 

6 

236*33 

120 40 

356 73 

9 6 

3 

0 


117 80 


6 6 

i3 

t 


120 40 


5 6 

3 

2 

261 23 

128 50 

389 73 

4 6 

3 

3 

258 98 

131 10 

'390 00 

3 6 

3 

4 

253 55 

130 62 

.364 17 

10 6 

3 

5 

246 13 

132 74 

V370 67 

6 6 

3 

6 

236 33 

133 40 

369 73 

9 7 

31 

0 

aaaaaaaaa 

104 96 

aaaaaaaaa 

8 7 

31 

1 

aaaaaaaaa 

129 96 

aaaaaaaaa 

11 7 

31 

2 

aaaaaaaaa 

134 96 

aaaaaaaaa 

12 7 

31 

3 

aaaaaaaaa 

139 96 

aaaaaaaaa 

13 7 

31 

4 

aaaaaaaaa 

144*96 

aaaaaaaaa 

14 7 

31 

5 

aaaaaaaaa 

149 96 


7 7 

31 

6 

243*28 

168*08 

411 37 

14 1 

4 

0 

236 33 

167 90 

424.23 

13 1 

4 

1 

236 33 

229 20 

465 S3 

12 1 

4 

2 

236 33 

245*20 

<461*53 

11 1 

4 

3 

224 16 

263 14 

487*30 

9 1 

4 

4 

224 16 

279 14 

503 30 

a 1 

4 

5 

220 90 

246 42 

469 33 

1 i 

4 

6 

220.90 

264*42 

485 33 

12 2 

3 

0 


115' 30 

aaaaaaaaa 

11 2 

*3 

1 


117.90 

aaaaaaaaa 

9 2 


2 

266 70 

126 00 

392 70 

15 2 

h 

3 

264 45 

126*60 

393 05 

16 2 

3 

4 

259.02 

127.15 

386*17 

17 2 

3 

5 

251.60 

126 30 

379 90 

2 2 

3 

6 

251*60 

130*90 

382*50 

NEH GUESS a 

369*73 










6 



236 33 

133 40 

369.73 

EXTRA PAD COSTS a 

0*50 




EXTRA PAD L 

SHALL SUST 

COSTS a 

4.85 



NEW GUESS " 

374.58 
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CL^‘ ‘fin;; I 


1 



236 33 


138*25 


374.58 


THIS ASSIGNMENT IS QPTIKUH AT A TOTAL COST OF 374 58 


i 




S 


MISSION 

CHARACTERISTIC 

PAYLOAD 

'RETURN 

launch 

NUHOER 

OPTtHUH 


TITLE 

i 

VELOClTYiFT/SEC) 

(LBS) 

PAYLOAD 

YEAR 

OP LAUNCHES 

LAUNCH VEHICLE 


''marsti 

41500 

1100 

0 

1971 

2*00 

T30 

AG D 

E 

PIONSR 

49000* 

460* 

0. 

1972 

1 00 

T3D 

AG D B2S 

E 





1973 

1 DO 

T30 

AG 0 B2S 

E 

HARS73 

40000 

6000 

0* 

1973 

2 OO 

T3K 

AGLT 

E 

HERCRY 

3B900. 

1000 

0. 

1975 

0 50 

T3B 

AG D B2S 

E 

CRDTRT 

49500 

800 

0 

1974 

0 50 

T30 

AC 0 82S 

E 

HARS75 

39400 

3000. 

0 

1975 

1 OO 

T30 

AG D 

e 

C0K6T 

37200* 

2000* 

0* 

1976 

1*00 

T30 

AG 0 

E 

ASTRA 

26300 

7000* 

0 

1976 

0 50 

T3B 

AG 0 

H 

RELTIV 

14200* 

2000* 

0* 

1974 

0 50 

T3B 

A6 0 

H 

iPIONOS 

5I4Q0* 

1000 

0* 

1975 

0 50 

T3H 

AGLT B2S 

H 

ATS 

33 600 

4000 

0* 

1972 

1 00 

T3D 

AG 0 

U 





1973 

1*00 

T30 

AG 0 

N 

ORELAY 

14200* 

2000 

0 

1976 

0 50 

T3B 

AG 0 

h 

USAHSC 

336O0* 

4100 

0 

1975 

0 50 

T3D 

AG 0 

H 

USAHSH 

30000 

S800* 

0 

1976 

1.00 

T3D 

AC D 

H 


TNS QPTIHUH SOLUTION HAS BEEN DETERHIHEO 


END OF DATA -'JOB COMPLETE 
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Appendix C 
FLOW CHARTS 


C.T TjESCRIPTION 


Detailed flow charts are included in this appendix for each of the major subroutines 
and the main program MAIN. They appear in alphabetical order by subroutine name. \ 

C.2 MAJOR SUBROUTINE CHARTS 

The subroutine charts follow 


C-1 



HAVE ALL 
VEHICLES 
BEEN 

CONSIDERED? 



CALL PACK 


STORE LZ VALUES 
BY BIT IN VKM 


HAVE ALL 

MISSION- 

YEAR 

COMBINATIONS 

BEEN 

CONSIDERED? 


SUBROUTINE AVAIL 














C-3 





SUBROUTINE CAPABL 






















SUBROUTENE CAPABL (Cont. ) 




























SUBROUTINE CHOOZ 



















C-6 



r 


1 


1 

I 

k 

) 


/ 


SUBROUTINE CHOOZ (Cont..) 
















DS(VU\ID) - FMNR(I) 
SUST<NU'U>) ■ FMSVS(1J 
V\D(KUMDK SAME AS 
LYD<NTJMD) I tOR gTAGE 


0 

1 



f' 















C-8 






SUBROUTINE DECISN (Cont. ) 























C-9 



r 


SUBROUTINE LBOUND 













C-10 



READ AND PRINT OUT 
MISSION COST DATA, 
LAUNCH RATE AND 
REQUIREMENTS 


DETERMINE NMIS - 
NUMBER OF MISSIONS 


STOP WHEN READ 
BLANK CARD 


RESTORE VALUES OF 
NSTG, NFAM, NCENP, 
NMIS FROM LAST CASE 
IF APPROPRIATE 



READ AND PRINT OUT 
PAD COST DATA 

DETERMINE NP - 
NUMBER OF PAD COSTS 

STOP WHEN READ 
BLANK CARD 


SET UP MISSION 
MATRIX BY YEAR 


NM = REFERENCE NUMBER 
OF MISSION- YEAR 
COMBINAXION 
LETT = MISSION NUMBER 
L.YR = LAUNCH YEAR 
YRLM = LAUNCH RATE* 

PRIORITY FACTOR 


READ AND PRINT OUT 
STAGE COST DATA 

DETERMNE NSTG = 
NUMBER OF STAGES 

STOP WHEN READ 
BLANK CARD 



READ AND PRINT OUT 
SHARED COST DATA 


DETERMINE NEAM - 
NUMBER OF SHARED COSTS 


STOP WHEN READ BLANK 
CARD 



READ AND PRINT OUT 
INTEGRATION COST DATA 

DETERMINE NCI = 

NUMBER or INTEGRATION 
COSTS 

STOP WHEN READ BLANK 
CARD 



CALL 


N STG, NV, 

NFAM. 


CALL 

CAPAEL 


NCI, NMIS, 
IBY. GUESS 

MYRS, 

. NOPT 


DECISN 

l__— J 


5 






I 


o 


SUBROUTINE MAIN 




































C-12 


FOn EACH STAGE ASSOCUTEO 


Kmam 




WITH VEHICLE I 





JX-l 


NONREC{L JX) -NONRECa + NV KX) 
» NUMD REFERENCE NUMBER 


JX- JX+1 


KX-l 



KX-KX+1 



FOR EACH ETR PAD COST 
ASSOC WITH VEHICLE I 

NO 

JX- JX+ 1 




— I — 


NONREC(L JX) - NUMD 


X 

REFERENCE HUMBER 





FOR EACH Em COST ASSOC 
wmi EACH STAGE ASSOC 
WITH VEHICLE I 


KONREC(L JX) - NUMD 
REFERENCE NUMEER 



I 


JX- JX+ 1 





IOC-KX+1 

1 . 

FOR EACH WTR COST 
ASSOC WITH EACH STAGE 
ASSOC WITH VEHICLE I 

NO, 



1 

i 

NONRECa+NV K>p-NUMD 
REFERENCE NUMBER 



FOR EACH WTR PAD COST 
ASSOC WITH VEHICLE 1 


KX-KX41 

l-W- 

rn 


NONRECP + NV KX> - NUMD 
REFERENCE NUMBER 

r 




FOR EACH FAMILY ASSOC 
WOT VEinCLE I 

NONRECCL JX) » NONREC<I + NV KX) 
• NUMD REFERENCE NUMBER 






HAVE ALL vehicles!. 
DEEN CONSIDERED? \ 


HAVE ALL STAGES 
BEEN CONSIDCBEB 
FOR VEHICLE I? 


ADD ETR AND WTR COSTS 
PLUS PAD COSTS ASSOC 
WITH EACH INTEGRATION 
ASSOC WITH VEHICLE I 
(SOME LOGIC AS FOR 
STAGE DATA) 




/ GO \ 



( ™ ) 



V 93 y 



FOR EACH ASSOC 

INTEGRATION COST 


NONREC(L JY) « 

NONREC(I + NV KX) « 

NUMD REFERENCE NUMBER 


ADD ETR AND WTR COSTS 
PLUS PAD COSTS ASSOC 
wrm EACH FAMLY ASSOC 
Wmi VEHICLE I (SAME 
LOGIC AS FOR STAGE DATA) I 


WRITE 


EXCEEDED 20 NON-RECURRING COSTS FOR VEHICLE X 

- 

MYFLAG - 1 


-I — 




\ 


t 


f 


n 


SUBROUTINE MATCH 





























SI-0 


MATE. 






1X>ES THIS 2-STAGE 
VEHICLE MEET THItUST- 
TO-WEIGHT AND DIAMETER 
CONSTRAINTS? 


YES 







YES 


IS 4TI1 STAGE 
■ 2ND STAGE? 


DOES Tins 
4-STAGE 
VEHICLE MEET 
THRDST-TO-WEIGHT 
AND DIAMETER 
CONSTRAINTS? 


CAN VEHICLE 
ATTAIN LOW 
EARTH ORBIT? 


CALL MISMAT 



XN 


DOES THIS 
3-STAGE VEHICLE 
MEET THRUST- TO- 
WEIGHT AND DIAMETER 
CONSTRAINTS? 


NO 



SUBROUTINE MATE 






















































/loop\ 


/ON MISSION ’ 


1 - YEAR 

START I — 

—^COMBINATION 

V J 

\ J-1, NM 


WAS VEHICLE 
ASSIGNED TO 
THIS MISSION? 


MISSION NAME, AV, PAYLOAD, RETURN PAYLOAD, LAUNCH 
YEAR, NUMBER OF LAUNCHES, STAGE COMPONENTS OF 
I VEHICLE ASSIGNED TO MISSION, LAUNCH SITE 


WRITE 


MISSION NAME, AV, PAYLOAD, RETURN PAYLOAD, 
LAUNCH YEAR NUMBER OF LAUNCHES, NO l^UNCH 
VEHICLE CAN ACCOMPLISH 


HAVE ALL MISSION- 
YEAR COMBINATIONS 
BEEN CONSIDERED? 


RETURN 









SUBROUTINE PACK 


a^ENTIEICATION 

Subroutine PACK 
Deck Name MOXOlPK 

Fortran IV subroutine coded in 360 Assembler Language (also MAV coded for the 7094.) 
Written by R. E. Slye 

PURPOSE 

This subroutine is used to pack an array of integer or logical data into a smaller arraj’’ 
in a packed binary format. 

METHOD 


The unpacked (source) data is treated as an array of unsigned integers. The integer 
words are truncated on the left and only the N low order bits are retained. The N 
low order bits are then placed sequentially, left adjusted, in a packed array word 
until that word is filled. Packing then continues into the next word, etc., until the 
source data is exhausted. 

Since a storage word contains 32 bits, a packed word may contain 32/N data items. 

Note that since only the N low order bits are retained, the largest integer item that 

N 

will be represented correctly is 2 - N. For example, it N = 4, the packed items 

will represent digits from 0 to lo. For a larger integer, the packed item will in 
effect be the modulus of the source item. 
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C 



USAGE 


This subroutine has three entry points. The three entries are PACK, UNPACK, and 
ITEM. To pack data, the Eortran call statement is 

GALL PACK (L, M, I, N) 


where 

L is the name of the array containing the soiu’ce data . 

M IS the name of the array containing the packed data . 

I IS the number of data items in L. 

N IS the number of low order bits to be retained. 

The array L should be dimentioned I . 

The array M should be dimentioned [(I-l)/[32/N]| + 1 
To unpack data, the Fortran call statement is 

CALL UNPACK (L, M, I, N) 

where the arguments are as listed above. 

I may be less than the actual number of items in the packed array. 

Packed data in the array M is unpacked and placed right adjusted in the array L . 

(The unused high order part of the word is cleared.) 

The third entry point to the routine may be used to recover a single item from the packed 
array M . It is called by the Fortran statement 

J = ITEM (M, I, N) 
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The Ith item in the packed array M is returned to the calling program. 



additional ^formation 


If [32/Nj IS not an even integer, some low order bits in a packed word are unused. 

For example, if N = 6 the word may contain 5 items and the last 2 bits are unused 
The 6th item will then start at tne beginning of the 2nd word. 

Tins subroutine is also available for use on the 7094. Since the 7094 has 36 bits /word 
rather than 32, the data will be packed differently. This should not concern the user 
except that the size of the M array may be slightly smaller. 

PRECAUTION 

Integers in the source data may be negative. However, if negative integers are used, 
the results will be different on the 360 from that on the 7094 since negative 360 integers 
are carried in complement form. 
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SUBROUTINE PADCST 















■ROUTINE EERF 



















T2“0 



SUBROUTINE PRINT 
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i 

1 

I 


RETURN 


SUBROUTINE STGNUM 
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Appendix D 
PROGRAM LISTING 


D’T ’'DESCRIPTION 

A compile-and-save Fortran listmg of each subroutine in the launch vehicle/mission 
assignment program is included in this section. Storage reqmrements for each sub- 
routme are listed on the output along with the code name under which the subroutine 
was saved. Total storage requirements are listed at the beginning of the sample case 
presented in Appendix B. Comment cards are liberally placed throughout the deck 
so that new users may familiarize themselves with the logical function of each 
subsection withm the program. 

Subroutine PACK is written in 360 assembler langu£^e and is stored for general NASA 
use. Therefore, its listmg is provided in that language 

Labeled common blocks were used for storage whenever possible to avoid long 'argument 
lists for each subroutme.' 


These blocks are found 'at the'begmnmg of each listmg withn brief explanation con- 
cerning the nature of the variables found in each block. 

The block labeled SCRACH stores variables only required in that subroutme so that 
the same storage locations may be used for storing new variables in the next sub- 
routme. All other labeled common blocks contain variables used m several 
subroutines . 

The listings are presented m alphabetical order according to subroutme name for 
easy reference. 
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D.2 COMPILE- AND-SAVE LISTING 


The eompile-and-save listing follows 


05/360 FOltTRAN K 


DATE 70 113/13 08.52 


COMPILCR OPTIONS - NAHE^ HA]K«OPTEOetLINECHTB4^tSOORCE»BCOfNOlIST«NOOECK«LOAOtNOHAP»NOED[7t ID«NOXREF 
tSN 0002 SUBROUTINE AVAIL \ 

Cr AOD AVAILABILITY TO CAPABILITY MATRIX 
I5H 0003 1NTEGER*2 LETTtLYRtHlNfNONRECtLYD.NPADTVEH 

CcSTORAGE FDR MAIN* DECISK* STGNUH* CAPABL* AVAIL* AND CHQ02 
ISN 0004 COHHON/NONOIH/ NUMO* NSTGtMYRS iNf AHtNCI *NP *NV 

C< STORAGE FOR MAIN* DECtSN* STGNUM* CAPABL* AND AVAIL 
ISN 0005 CDNHON/VEHCLE/ NPAOl 2* 60 1 * VEH14t60l iNYP(2*60) 

CfSTORAGE FDR MAIN* STGNUH* CAPABL* AVAIL* AND CHOOZ 
ISN 0006 COHHON/HISSON/ LETT! 250 1 *LYR(250I * LTRISOI * YRLH(250| ,HIN( 2501 «NK 

C^STORAGE FOR MAIN* DECtSN* STGNUH* AND AVAIL 
ISN 0007 CDMHON/STAGE/ LSAI40 1 * SNRI41 1 *S7G<401 |SUS(40 1 *HYSI40) *SUSLS(40*2I * 

. 1 NFS(A0*4) 

C STORAGE FOR MAIN* DECISM* AVAIL* AND CHOOZ 
ISN OOOB . CDHHON/DSCOST/ 0SlL00l*S05Tn00l *NYOU001 *LYDnOO] *NONREC(12D*20l 

c storage for main* avail* and CKODZ 

ISN 0009 y COHHDN/CAPNAT/ VNHf 4* 250l *HV2 

C STORAGE FOR AVAIL ONLY 

ISN 0010 r CONHON/SCRACH/ LZ ( 120 1 tDUHHY I501S I * VHI2 *120) 

C •••AOD AVAILABILITY 70 VEHICLE CAPABILITX MATRIX*** 

ISN 0011 . DO 39 J a ItNH 

ISN 0012 ' KO a LVRIJl 

ISN 0013 , L a LBTTIJl 

ISN 0014 ^ DO 35 I a l*NV2 

ISN 0015 . IF(!TEH<VN(t*n*L*l}.EQ*0> GO TO 30 

ISN 0017 ^ DO 36 H a 1,20 

ISN OOU lF(NONRECn*H)*EO 0) GO TO 37 

ISN 0020 « NO a NQNRECdtHl 

ISN 0021 IFiKO.LT.NYDINOn GO TO 38 

ISN 0023 * 1F4K0 GT LYt)(NO>) GD TO 3R 

ISN 0025 36 CONTINUE 

ISN 0026 4 37 LZin » 1 

ISN 0027 GO TO 35 

ISN 0026 f 36 LZril a Q 

ISN 0029 35 CONTINUE 

ISN 0030 k CALL PACKILZ*VNH<lfJl«NVZ*l) 

ISN 0031 39 CONTINUE 

C NN LESS than 136 FOR PRESENT FORMATS I E« ITER LE 3 
ISN 0032 284 NRITE (6*40001 

ISN 0033 , DO 421 iTER • 1*3 

ISN 0034 KNH a HIN0(1TER*45*NH1 

ISN 0035 y K a 1 C (ITER - 11*45 

ISN 0036 2BS HrITEI 6*4002) (LETTfJlfJaKtKNH) 


ISN 0037 
ISN 0038 
ISN 0039 
ISN 0040 
ISN 0041 
ISN 0042 
ISN 0043 
ISN 0044 
TSN 0045 
ISN' 0046 

ISN 0046 

ISN 0050 
ISN 0051 
ISN 0053 
tSN 0055 
ISN 0057 
ISN 0058 
ISN 0059 


ISN 0060 


ISN 0061 
ISN 0062 


ISN 0063 
ISN 0064 
ISN 0065 


DO 420 n • 1*NV2 

I a n r HiNoio*isiGN(NViNv>nn 

lA^VFlKl*!) 

' iR-vpm?*n 
IC>VEH(3*n 
ID»VEH|4*n 
DO 286 4 a KfKNH 
LZiJCl-Kl a 1T£K(VNKI1*J}*I1*11 
286 CONTINUE 

IF U1 LE NV) 

1NRITEI6*41C01I*STGI lA ) ,STGUBl *STGUC} * STGlIOl * (LZ( JSl-Rl i JaKvKNH) 
IF ML GT NV) 

lHRlTEt6f4l03)I,$Tr (lA)*STGnBl«STGnCl*S7Gl lOl* (LZtJSL-Klf JaKtKNH) 

420 CONTINUE 

IP(NH LE KNHl RETURN 
IFIITER EO 21 WR1TE16*40011 

IPMTEREQ31 NRITEI6»40O3) 

421 CONTINUE 
return 

4000 FORMAT ( 1H1.34X.51HV EHtCLE/KISSION CAPABILl 

1 T Y/46X*30H(l a POSSIBLE* 0 « IHP0SSlBLE)/lH0t43X*10(2Hl 1* 

2 10(2H2 )*10(2H3 1*6(2H4 1/18H VEHICLE / NISSIGN*9X*4(20HI 234 
35 6 7 8 9 0 1.9H1 234 S//) 

4001 FQRHATdHO/ 1H0,25X,4(2H4 )*10<2H5 1*101286 )*10(2HT >tlO{2Hd It 

1 ZK9 /18H VEHICLE t HISSI0N*9X*9H6 789 0|4(20H1 23456789 

2 0 1//1 

4002 FORMAT (1HO*7X*14HHI$SION NUMBER* 4X*4512) 

4003 FORNATClHOy lH0f25X*9(2H9 i |10(2HIO}«1D(2H11)*1012K121*6(2H13)/ 

1 18H VEHICLE / HISSION* 9X*4(20H1 234567B901* 

2 9H1 2 3 4 5//1 

4100 FORKAT (IH *I2»lX«4(A4tlX)*2HE *4512) 

4103 FORMAT tlH * 12* 1X*4( A4*1X) *2Hit *4512) 

END 


END OF COMPILATION •♦*•♦• 
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P8S-LEVEI. LINKAGE EOtTOR OPTIONS SPECIf^IED LlST»XREP,HAPtNCAL 

VARIA9LE OPTIONS USED « SIZE«U 26976t24576) OEEAULt OPTlDN(S> USED 

lEWOOOO NAHElH0X02AV(ftl 

|’IEU0A61 ITEM 
IEH0^61 PACK 
^lEWOAAl IBCQH« 

(r 

CROSS REFERENCE TABLE 
> 


CONTROL SECTION ENTRY 


NAME 

ORIGIN 

LENGTH 

NAME 

LOCATION 

NAME 

LOCATION 

NANr LOCATION 

NAME 

LOCATION 

AVAIL 

00 

700 








NQNDIM 

TOO 

!C 








VEHCLE 

7F0 

4B0 








NISSON 

CAO 

A90 








STAGE 

1730 

6E4 








DSCDSr 

lEia 

1838 








CAPMAT 

3650 

FA4 








SCRACH 

45FB 

53FC 









LOCATION 

REFERS TO SYHBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

2F8 

NONOIH 

NQNDIH 

2PC 

VEHCLE 

VEHCLE 

300 

MISSON 

HISSON 

304 

stage 

stage 

308 

OSCOST 

DSCOST 

3QC 

CAPMAT 

CAPHAT 

310 

SCRACH 

SCRACH 

314 

SCRACH 

SCRACH 

318 

ITEM 

SUNRESOLVEO 

31C 

PACK 

iUNRESOLVED 

320 

IBCOH* 

^UNRESOLVED 

268 

SCRACH 

SCRACH 

270 

CAPHAT 

CAPHAT 





ENTRY ADDRESS 00 

TOTAL length 99F6 


i****M0X02AV NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


IEH0A61 WARNING - SYHBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCEf NCAL NAS SPECIFIED. 


1(171 0S/S6O FORTRAN K 


DATE 70 113A5 09*23 


COMPILER OPTIONS - NAME- KAIN»0PT-02tLINECNT«A4t SOUPCE tBCD»NQLlST»NOOECK»LOAO,NOMAPiNOEDlT* ID,NOXRCP 
I5N 0002 SUBROUTINE CAPABL 

C INPUT VEHICLE INFORMATION AND COMPUTE CAPABILITY MATRIX 
tSN 0003 REAL 1SP»LENT 

ISN 0004 INTEGER*2 LETT*tYRtKIN*VEH»NPADtNMULT 

C STORAGE FOR HAlNr OECtSN* $TGNUM« CAPABLr AVAlLf AND CHOOI 

ISN 0005 COHMDN/NONDIH/ NUMO,NSTG»HYRSiNFAM,NCI »NP,KV 

C STORAGE FOR MAIN, DECISN, STCNUM^ CAPARL* AND AVAIL 
ISN 0004 COKHON/VFMCLE/ NPADI 2* 60 ) tVEN[ 4* 60) «NYP(*r*60l 

C STORACE fur HMNt STTNUK* CAPABL* AVAILt AND CHDOZ 
ISN 0007 C0HM0N/HIS5QN/ LETTI2501 tLYRr2SO)iLTR(50>tYRLM(2501 |HIN|25G)tN4 

C storage for HAINt STGNUH* CHCOZ* AND CAPABL 
ISN 0008 COHHOH/VEHAEC/ RECUR (60t2Q 1 2) i NMULT(60t8Q1 f H^LAG 

C STORAGE FOR MAIN AND CAPARL 

ISN 0009 COHHON/KISREO/ IVEHA (50) tVLRCSO ) iUPR(5Q) «NPL5(50 1 «HR(50) »NRR (501 1 

I RPLH(50lrNTRIP(501 

ISN 0010 « COMKON/VEHIN/ IV|KNVttS«NHISfNOPTfKO0E(4O)tK0OEP(3O) tIPiRPLOtSD) 

C STORAGE FOR CAPABL ONLY - SAVE FOR BATCHING 
ISN OOIl COHH0N/8ATCH/ NRP(60)i 

I Bt l60)iB2(601iB3(60)iR4(6D)tX006V(60)»NV5(60ltHRV(601 

ISN 0012 COHKON/SCRACH/ LZ( 50 ) »HZ(S01 « VmM2«601 tNEH|4t601 |NPAX(2«60) * 

1 NS7(40)»THRT(40l i0IAH(40 1 «TSL( 40) tLENT ( AO) ,WTFU(40) ,WT IN(401 r 

2 1SPl40>»WlNT(3t60) »KXtNXrN6HT(40l»UF (41 »WT (41 « ISPAI4) ttHUT(4}» 

3 PRTIaOIi DUHMY(39371 »VHl2tl20} 


ISN 0013 
ISN 0014 
ISN 0016 

ISN ooia 

ISN 0020 
ISN 00 ?l 
ISN 0023 
ISN 0024 
ISN 0025 
ISN 0026 
ISN 0027 
ISN 0028 
ISN 0029 
ISN 0031 
T$N 0032 
ISN 0034 
ISN 0035 
ISN 0036 


DO 261 J > It 60 

IFUV LT 0 ANO.J.GT.KNV) GO TO 5004 
IFdV.LT 0 AND IS.LT.O) GO TO 27 
1FI IV LT 01 CO TO 15 

READ (5t 106) (NEHdtJ Itl-ltAltBl ( J ) iB2( J) « B3U 1 »B4( J) »KODEV(J) 
1PlKn0FV(J] EO 0) GO TO 5002 
0(1 700 I - 1,4 

700 VENdiJ) ■ NEH(IfJ) 

READ<5,10B)NVSI J)tHRV(J),NRP(J)t(NPAXdr^>f I"lf2lt(NYPIlTJ)fI-lT2) 
DO 701 I - li2 

701 NPADdfJI > NPAXI|«J) 

15 00 26 I • 1,4 

IFIVEHdtJI EO 0} GO 70^27 
DO 25 K - ItNSTG 

iFlVEHdtJI.NE.KOOEIK}) GO TO 25 
VEHd,J) > K 
GO TO 26 
25 CONTINUE 


i 



CL^S-.lFlc:/7lU^1 j 
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1 1 ‘ 


' if 


K 


1 r 


Utiifiu I 


ISN 

0037 

26 CONTINUE 


ISN 

0038 

27 

NV • J 


ISN 

0039 


IPUV,LT 0»AN0 IP.LT 01 GO TO 9007 


ISN 

0041 


DO 9008 I > lr2 


ISN 

0042 


IF (NPA0II»J1 E0«0) GO TO 9006 


ISN 

0044 


DO 9009 K 3 l»NP 


ISN 

0045 


IF (NPAOdtJI NE KODEPIKM GO TO 9009 

ISN 

0047 


NPADUrJI > X 


ISN 

0048 


GO TO 9008 


ISN 

0049 

9009 

CONTINUE 


ISN 

0050 

9008 

CONTINUE 


ISN 

0051 

9007 

Cl ■ BlIJi 


ISN 

0052 


C2 » 8210) 


ISN 

0053 


C3 > B3IJ1 


ISN 

0054 


C4 - 84U) 


!SN 

0055 


DO 28 !-l,NMIS 


ISN 

0058 


NNULTIJtll B 1 


ISN 

0057 


Lzm 3 1 


ISN 

0058 


IF nVEHAU) EO.O) GO TO 21 


ISN 

0080 


IF MVEHAm NE KDOEVIJI) GO TO 8024 

ISN 

00 62 


GO TO 81)20 


ISN 

0063 

21 

VLX«VMlin-2S573 


ISN 

0064 


IFIVLX GS C41 GO TO 8024 


ISN 

0066 


HP*EXPICI-C2*VU-C3/IC4-VU1> 


ISN 

0067 


00 22 JJ a lf4 


ISN 

0068 


iFiVEHlS-JJtJl EQ 0) 60 TO 22 


ISN 

0070 


LU a V£H|5"J0fJ) 


ISN 

0071 


IFtRPLHm GE 1 Q*AN0 XPLOILU 

»OQi: 

ISN 

0073 


IFlRPLHm C RPLOILLI LE ODll GO 

TO ; 

ISN 

0075 


GO TO 255 


ISN 

0076 

22 

CONTINUE 


ISN 

0077 

255 

IFlNTRIPin.EQ 0) GO TO 8024 


ISN 

0079 


IFIKP GE WpRnU GO TO 24 


ISN 

0081 


NHULTlJtl) » INT(NPR<n/NP £ «99> 


ISN 

0082 


IFINHULTU.n 6T*NTRlP{m GO TO l 

8024 

ISN 

0084 


60 70 24 


ISN 

0085 

23 

IP IMP LE.UPftmi CO TO 8024 


ISN 

0087 

24 

IP INGPT NE 3) GO TO B020 


ISN 

0089 


IF INPLSm.EQ 0) GO TO 6023 


ISN 

0091 


IF (NPLSm HE.NVSUn GO TO 8024 


ISN 

0093 

8023 

IP INRRin GT.NRPUn CO TO 8024 


ISN 

0095 


IP (HRU) EQ 0 OR HRVrJl EO»lf CO 

TO 


ISN 

0097 

8024 

LZU) > 0 < 




ISN 

0098 

8020 

IPINP NE*01 MZm a LZm 




ISN 

OlOO 


IFILZm EQ 0 OR NP EO 01 GO TO 28 






C NOTE » LTR > 1 OR 2 POR REUSABLE COMPONENTS NEED NOT BE 

ETR 

OR 

)ITR 

ISN 

0102 


IF ILTRIII E0«21 GO TO 9019 




ISN 

0104 


HZU) « 0 




ISN 

0105 


IF llVEHAin EO KOOEVUn GO TO 28 




ISN 

0107 


IF (NPAOIifJl EO 01 LZ(I) > 0 




ISK 

0109 


GO TO 28 




ISN 

0110 

9019 

Lzm a 0 




ISN 

0111 


IP UVEKAin EO«K00EVU11 CO TO 28 




ISN 

0113 


IF (NPAD(2tU1 EQ 01 HZdl • 0 




ISN 

0115 

28 

CONTINUE 




ISN 

0116 


CALL PACKILZtVHU*J)»NHtStl} ^ 




ISN 

OUT 

i 

IP (NP NE 01 CALL PACK (MZtVKHdt JltNHIStU 




ISN 

0119 

281 

CONTINUE 




ISN 

0120 

5002 

IP(HOPT NE 2) GO TO 5004 




ISN 

0122 


MRITEI6f UU 






C CAROS MUST BE IM SAME ORDER AS INPUT STAGE CAROS 
C ALL STAGES NOT TO BE USED IN MATCHING SCREEN MUST BE AT 

END 

OF 

DATA 

ISN 

0123 


DO 30 1 a ItNSTG r 




ISM 

0124 


REAI>(5»1091 JfNSTmiTHRTmyDlAHlIJfTSLmiLEMTnifMTFUinf 





L UTlNIIltlSPm 




ISM 

0125 


tP(J EO 01 GO TO 31 




ISN 

0127 


URlYE(6tU2) ItMSTm^THRTIDtOlAHlDtTSLdlfLENTdlf 

MTFUmtUTlN 



'' initispci] 




ISN 

0128 


IP(J NE XODEdn GO TO 5005 




ISN 

0130 

30 

CONTINUE 




ISN 

0131 

31 

CALL HATE 




ISM 

0132 

5004 

IF (NP EO 01 RETURN 




ISN 

0134 


DO 5003 J - ItNV 




ISN 

0135 


VHdtJCNVI a VKWdtJ) 




ISN 

0136 

5003 

VH(2tJSNV) > VKM(2tJ} 




ISN 

0137 


RETURN 




ISN 

0138 

5005 

MRITEUtllOl 




ISN 

0139 


RETURN 




ISN 

0140 

106 

FORMAT (4I2»4El3.6tiaXf 121 




ISN 

0141 

108 

FORMAT (3Xi3I2»4I31 




ISN 

0142 

109 

PORKATd4.l5T7PlO 0) 




ISN 

0143 

110 

P0RHAT{27H0STAGE CAROS IN NR0N6 ORDER! 




ISN 

0144 

m 

P0RHATdHIi8H 5TG NST »9Xt4HTHRT »9Xt4MDlAHf9X»4H TSLf9X»4HLEHTt9Xf 


I <inHTfU,«.‘t«HTIN.10X.3HISP//l 
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I 


rji - im hnu) 


i 1 


rji 1L/1I0M i 


1 'ihC"tH)OOOijj 


ISM 0145 U2 FORH4TUHOt2t4*7Fl3 21 

ISM 0146 CHO 

>•«*«*• eNO Of CQKflUTlOM *•««•« 


, Fia-LEVei tlNKAGE EOITOR OPTIONS 



«« bu»iurv urijuna 

variable options USED • 

IFUOOOO 

NAHC MOXOZCPtFO 

1EW0461 

HATE 

IEW0461 

PACK 

IEW0461 

EXP 

IEWD461 

IDCOK> 


SPECIFIED USTtXREFtHAPiNCAL 
■ SIZE>ll24976t24576) 


DEFAULT 0PT!0N(S1 USED 


CROSS REFERENCE TABLE 


CONTROL SECTION 


NAHE 

ORIGIN 

LENGTH 

CAPABL 

00 

B9B 

NONOIH 

G9B 

1C 

VEHCLE 

BBS 

480 

HISSON 

t06B 

A90 

VEHREC 

1AF8 

3CF4 

N1SREQ 

57F0 

640 

VEKIN 

5E30 

iFe 

BATCH 

602S 

780 

SCRACH 

67AS 

y 

53FC 


ENTRY 

MAKE LOCATION 


NAHE LOCATION 


NAME LOCATION 


LOCATION 


lOCATION REFERS TO SYH6PL 

IH CONTROL SECTION 

1C8 

NONOIH 

NONDIH 

100 

HISSON 

HISSON 

lOB 

VEHREC 

VEHREC 

lEO 

HISREQ 

HISREQ 

lEB 

BATCH 

BATCH 

IFO 

SCRACh 

SCRACH 

IFB 

HATE 

iUKRESOLVBO 

200 

EXP 

SUNRESOLVED 

118 

SCRACH 

SCRACH 

128 

« SCRACH 

SCRACH 

ENTRY ADDRESS 

. 00 


TOTAL LENGTH 

BBAe 



LOCATION 

REFERS TO SYNSOL 

IN CONTROL SECTION 

ICC 

VEHCLE 

VEHCLE 

104 

VEHREC 

VEHREC 

> IOC 

VEHREC 

VEHREC 

1E4 

VEHIN 

VEKIN 

lEC 

SCRACH 

SCRACH 

1F4 

SCRACH 

SCRACH 

1 IPC 

PACK 

^UNRESOLVED 

204 

IBCDN- 

SUNRESQLVED 

120 

VEHIN 

VEHIN 

130 

VEHIN 

VEHIN 


****HDX02CP NOW REPLACED IN DATA SET 


CLAScn-ir.' iiurj 
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FORTRAN 

0001 


0002 

0003 


0004 

0005 

0006 


0007 
000 B 
0009 


0010 

0011 

0012 

0013 


0014 

0015 

0016 

ooir 

0018 

0019 

0020 
0021 
0022 
0023 


FORTRAN 


0024 

0025 

0026 
□027 
OOZB 

0029 

0030 

0031 


0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 
0046 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 
0056 

0059 

0060 
0061 


* 1 




i ' ; * - fJIHMM [> 


IV G LEVSI. It HOD 4 CHOOZ DATE * 70113 15/09/56 PAGE 0001 

SURROUTTHG CKODZ 

C DETERMINE DPTIHUH VEHICLE TO MISSION ASSIGNMENT i 

real NPERPDiNPUSEO 

INTEGER*2 LETT tLYR.M IN .NONRECt LYDtMORE.NSAVE r KOUTtKEEPrNPADtVEHt 
1 NPFAKtNPSTGtNPlNTLfNPlNTUrNHULT ' 

C STORAGE FOR MAIN* DEClSNi STGNUHt CAPADL* AVAILt AND CNOOZ 
CQHHON/NONDIH/ NUMOiNSTGiHYRS tNFAHtNCl tNP«NV 
COHMON/VENCLE/ NPADl 2t60) « VEH14y60) tNYP I 2|60) 

C STORAGE for MAIN* DECISNt STCNUH* AVAILt ANO CHOOZ 

COMHON/STAGE/ LSA<401t5NR141ltSTG(40]tSOS(40)tHYS(40)tSUSL5(40t2} t 
1 NFSl40t4) 

C STORAGE FOR MAIN, STCNUK, CAPABLt AVAlLt AN9 CHOOZ 

COHHON/HISSON/ LETT<250>iLYR(250)tLTR<50)fyRLHI250>tHIN(250)»KM^ 

C STORAGE FOR HAIN* OEClSNf AVAILt AND CHOOZ 

COHHON/DSCOST/ OS UOO J , SWST 1 100) tNYDC lOOJ UyO 1 1001 ,NONRgCf I20t 20) 

C STORAGE FOR MAIN* DECISNt AKO CHOOZ 

COHHQK/PADS/ PFAMDC30 t5t3 ) tPFAHS (30t 5 t 31 i NPFAHI 30 t 5 ) t 

1 PSTGD(30tl0t3)tPSTGS<30it0t3)tNPSTG(3Dtl0) tPINTS(30| 5t3) t 

2 NPINTL(30t5)fNPINTU(30tS>tPADI30> 

C STORAGE FOR MAIN* STCNUH* CHDQZt AND CAPA6L 

COMKON/VEHREC/ RECURt 60t20t 2) iNMULT{60«50) t IPLAG 
C STORAGE FOR HAIN« AVAILt AND CHDOZ « 

CDHHON/CAPHAT/ VNH(4t250)iNV2 
C STORAGE FOR MAIN AND CHOOZ 

COHHQN/CHOOZE/ NEXTtGUESS * NPERPD 130 ) » LP 

c storage for cbooz only 

. COHHDN/SCRACH/ TDSISOO) tW2(5Q0) tZ< 500> tV (500) iKSAVE UO) t 

' 1 NODE(5,5O0)»L£nO0)>Hm20)tKEEPnOO)iCOST(2«250)*HR(lOO1 

c storage for ckodz and padcst 

COHMDN/SAVEPT/MORE15O>tKOOT(I0O)iLODT«EXTRA»SAVS(2O) 

C STORAGE FOR CHOOZ ANO LBOONO 

COMMON/ SAVELB/ KX»KttNXiNCOSTtKtKZ 

C the following DATA STATSHENT-USCD ON THE 360'> PLACES t<S IN ALL LOCATIONS 
DATA lONES /-!/ 

C 

IFCMYRS CT 10) CO TO 2 
. Kl • 1 

KNCX - NYRS 
GO TO 3 

2 KI H 2 

KNEX • fHYRS + l)/2 

3 CONTINUE 
C 


IV G LEVEL 1, MOD 4 CHOOZ DATE * 70113 15/09/56 PAGE 0002 

c «** initialize functions *** 

7 NEXT-l 
NX>I 

KPNX « 10 
DO I > ItS 
16 NDDE(I»U>tONES 
DO 400 1 • It 50 
400 MORE (I) > 0 
WRITE (6t20S1 
C 

C tt«* FIND wm • SUM OF COLUMN MINIMUHS OF FIRST CASE 

wm«o 0 ' 

H 2 ( 1 1 >00 
TDSlL) >00 
DO 19 J»1»NH 
lY » LYRIJ) 

JX B LETTIJ) 

ITR > LTR(JX) 

CALL UNPACK(HZtVNM(ltJ)tNV2tl) 

COSTUiJ) > 1 0E30 
C0ST(2*J) ■ 1 0E3O 
00 18 ItiltNVa 
IFIMZm EO 0) GO TO 18 
* n ^ I * HIN0{0tl5IGN1NVtNV-in 
X > NHULTlIltJX) 

CX > YRLHIJ)*RECURnitlYtlTR)*X 
IF(CX«CEtCDST(2*jn GO TO 18 
IFICX LTtCOSTUrJn CO TO 176 
CQST(2»J| > CX 
GO TO 18 

176 CD5T(2tJ] > COST(ltJ) 

COSTlltJ) > CX 
U MINtJ) > 1 

18 CONTINUE 

iF(COSTritJ) LT.l 0E25) GO TO 20 
YRLHIJImO 0 
COSTlliJ) >00 
C0STI2tJ) >00 
20 H2U) « W2tn -f COSTtZtJl 

19 wm > Nm 4 COSTlliJ) 

IFINUKD E0*0) RETURN , 

c 

C PRESET SHALL SUST COSTS TO ZERO SO ALGORITHM IGNORES THEM 


CL 


‘P 




i 


\i}) 
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FORTRAN IV & IgVEL It HOD 4 CHDOZ DATE « 70113 


00 62 
0063 

006<i 

0065 

0066 
00 67 
0066 

0069 

0070 

0071 

0072 

0073 
0076 

0075 

0076 

0077 
0076 
0079 
0060 
0061 
0062 
0063 
006^ 
0065 
0006 

0067 

0068 


0069 

0090 

0091 

0092 

0093 
0096 

0095 

0096 

0097 

0098 

0099 


CAU UNPACKaZtN 0 DE(ltl)tHUH 0 » 4 ) 

[PIIFLA 6 OT.Ol CO TO 22 
DO 21 I - IfNUHO 

21 Koiirri) > 0 

C LOUT B KUHbER of SUST COSTS GT 0 HHICH HAVE BEEN SET TO 0 
. LOUT » 0 
X a HYRS 
0 » 4 0 /X 

1 FIGUESS.lt U 0 E 6 ) G » GUESS/( 50 0 *X) 

DO 27 I • ItNUHO 
IFISUSTtn.LT. 0011 GO TO 27 
IFtSUSTn l.GT.G) GO TO 27 
LOUT »» LOUT t 
IFaOUT*GT 20 ) GO TO 28 
KOUTU) a LOUT 
SAVS(LOUT) > SUSTm 
* SUSTm a 0 0 

IF(DSm. 6 E .*51 GO TO 27 
LZm ■ KHEX 

27 CONTINUE 

28 IFILOUT GT 0 ) CALL PACKaZiNODEUtDtNJHOtA) 

GO TO 29 

^22 IFRGUT EO 0 ) GO TO 29 
DO 23 1 a 1 ,NUH 0 

IFIKOUTMl.EO 0 OR OSII) GE« S) GO TO Z 3 

Lzm a knex 

23 CONTINUE 

CALL PACKILZfNDOEUtt ItllUMOiAl 
C 

C «** PICK COST TO CONSIDER NEXT **• 

,29 NCOST a 0 
' NKBY a 0 

FHAX • "1 0 E 35 
IF IKPNX.NE.NXl 

ICALL UNPACK aZtNDOE<l«HXl iNUHDtAl 
30 DO 35 NIC a tfKUHO 

IFILZINIO LT 15 ) 60 TO 35 
NKEY a NkEY ♦ I 
IF IKPNX.EQ NX) GO TO 300 
HRINIC) a 0.0 
, DO 33 Jc l|NH 

1 F<YRLH(J) EQ 0 01 GO TO 33 


FORTRAN IV 5 LEVEL 1* HOD A 


CKOOZ 


DATE a 70113 


0100 

0101 

0102 

0103 

OlOA 

0105 

0106 

0107 

0108 

0109 

0110 

0111 
0112 
0113 
OllA 

0115 

0116 
0117 
one 

0119 

0120 
0121 
0122 

0123 

012A 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 
013A 

0135 

0136 

0137 


CALL UNPACKrHZtVNKIl»J),NV2tl) 

CHIN a 1 0E30 
KO a LYRU) 

JX a LEIT(J) 

ITR a L7RIJX) 

00 32 I a lfNV 2 

IFlHzm EO 01 GO TO 32 
DO 31 H a It 20 

tF(NONRECll«H).EO 0> 60 TO 315 

NO a NONRECdtH) 

IF(NO EO NIC) 60 TO 32 
IF(KI*LZINQ) LT xO» GO TO 3Z 

31 CONTINUE 

315 II a I * K]MO(OftSIGN(NVtNV-n> 

X a NHULTlUtJXI 

€X a YRLHlJ}*RECUR(lliKOtITR>«X 

iFtCX LT CHINl CHIN a CX 

32 CONTINUE 

NRINIC) a HRtNICI * CHIN 

33 CONTINUE 

300 PF a KRINIC) - NiNX) 

IFtPP lT..oon GO TO 35 

301 IF(SUST1NIC)*GE««001) OF • DSINIC)*0 5 *■ SUST(NtC) «■ PP 
1 -I 0EA/ISU5TINIC)**AJ 

IFISUSTINIO.LT 0011 DF a a 5«0S(NIC> A A«0 * PP 
IF(SUSTIN1C}.LT..001 AND.PF GT 1 OElO) OP » l»OE36 
iFtOF LE FHAX) GO TO 35 
FHAX a OF 
NCOST a NIC 

35 CONTINUE 

36 IF(NCOST.NE.O) GO TO 295 
C 

IFINKEYtEOtO) GO TO 75 
00 37 I a ItNUHO 

IFILZm.EO L5> LZm a 0 

37 CONTINUE 

CALL PACK(LZtNOOE<ltNX)«NUHDtA) 

IFfZ(NXULT»GUE5S) GUESS « ZIHX) 

HRITEI6t210) GUESS 
GO TO 75 
C 

C ALLOCATE SPACE FOR NEW NODES 
C 



15/09/56 


15/09/56 
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fortran IV c LEVEL It HDD 4 CHDOZ 


DATE > 7D113 lS/09/56 


013d 

0139 

OlAO 

01^1 

0142 

0143 

0144 

0145 

0146 

0147 
0146 

0149 

0150 

0151 

0152 

0153 

0154 

0155 


0156 

0157 
OlSS 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 


295 1F<SUST(NC0STI GE 0011 
IF(SUSTINCOST) LT .OOn 
IFCNFXT EO.tl GO TO 41 
00 40 1 > 2 tNEXT 

K - NEXT +2-1 
IPfZIK) LE GUESS) CO TO 
J>J+1 

iFtSUSTlHCOSTKGE .001) 
IFISUSTINCOST) LT .001) 
IFIJ EO KHEX) GO TO 44 

40 CONTINUE 

41 IFIJ EO KNEX) GO TO 44 
JbJ +1 

N6XT-N6XT+1 

IF(NEXT.60 5001 GO TO 74 
IFISUSTINCOST) GE 0011 
IF1SUST<NC0ST).LT .001) 
CO TO 41 


+ INyDlNCOST) 
KNEX 1 


NSAVE(J) « K 
NSAVE(l) - K 


HSAVE(J1 

NSAVEfl) 


NEXT 

NEXT 


«** BRANCH WITH VARYING YEARS OF SUSTAINING COST ««* 

44 DO 52 K-Lt10 

IF(SllSTtNCOST) GE 001 AND K tT«l + (NYDINCDST)-L)/Kn GO TO 52 
KX«NSAVE{K) 

IFrU‘-l)*KJ.LT.LYOtNCOST)) GO TO 45 
H(KX) k 1 0E30 
Z<KX) >20*OE30 
GO TO 509 

45 DO 46 lelt5 

46 HODEUfKXl^KODEtliNX) 

LZCNCOST)»K-l 

IF(K EQ 1 + <NY0INC0ST)-1)/KI) LZINCOST) - 0 
CALL PACKaZrN00EntKX)»NUN0t4) 

CALL LBOUND 

509 1F1SU5T1NC0ST1.lt 001) GO TO 53 
1F(KI*K GE HYRSJ GO TO 53 

52 CONTINUE 

*** BRANCH INCLUDING NCOST AND ALL SUSTAINING - PUT IN NODE NX *4* 

53 LZINCOST) ■ ILYDINCOSII + KI - 11/Kl 
CALL PACK tLZfNODEltiNXltNUHOiA) 

IFOMNXl.GT.HtKXl- 0001 AND N2(NX).G1 W2lKX)-0 0001) K-50 

IFINCHX) GT H1KX)-«0091 ANU N2INX).GT.L OE25.AN0.H2 (KX)-H2t NX ).LT. 
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0176 

0177 

0178 


0179 

0180 
0181 
0182 

0183 

0184 
0165 
0186 
0167 
0188 


0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
OZOl 
QZOZ 

0203 

0204 

0205 

0206 
0207 
020B 

0209 

0210 
0211 
0212 


1 1 OE25) K«50 

KX « NX 

KZ - LYO(NCOST) 

C 

CALL LBOUND 
C 

C ♦♦♦ IMPROVE GUESS IF AT BOTTOM OP TREE •** 

IFtNKEY.GT.ll GO TO 55 
GUESSl < GUESS 

^ IFtZtNXl.LT.GUESS) GUESS ■ Z(NX) 

DO 51 I«1.KN8X 

tFtSUSTCNCQST) GE .OOl.AND t.LT«l4{NY0(NC0ST)-1 )/Kl) GO TO 51 
K>NSAVEI1) 

IFtZtKl LT GUESS) GUESS » ZtK) 

1F(SU5T(NCDST).LT. 001} GO TO 515 
51 CONTINUE 

515 WRITE 16i2l0) GUESS 
C 

C PICK NEXT MODE FOR BRANCHING AS THE ONE WITH LEAST LOWER BOUND Z 
55 KPNX « NX 
NX » I 

DO 59 I>2*NEXT 
IFtZtnXKGT.Ztll) NX « I 
,59 CONTINUE 

IFtZlNXI.LE GUESS) GO TO 29 

WRlTEl6t702l 

GUESS » 0 0 

RETURN 

74 WRITEf 6.203) 

RETURN 

75 DO 00 J-l.NH 

iFtYRLHtJ) EO.O 0) GO TO 80 
CALL UNPACK{HZiVNK(ltJ)»NV2f 1) 

CKINaL 0E3O 
XO « LYRtJl 
JX » lETTtJ) 

ITR LTRtJX) 

DO 78 1-1, NV2 
IFtHZin.EQ 01 GO TO 78 
DO 77 K-l.ZO 

[FCNONRECtlfKI EQ.O) GQ TQ 775 
NO -N[)NRECntK) 

IFtKl»LZtNO) LT.KO) GO TO 78 





T 


fortran 

0Z13 

0214 

0215 

0216 
0217 
0210 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 


0235 

0236 

0237 
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IV G LEVEL If HOO 4 CKOOZ DATE ■ 70113 15/09^56 

77 CONTINUE 

775 tl ■ 1 + H1N0IQ«ISIGN(NVfHV’-in 
X ■ NHULTdlfJX) 

CX«YRLHIJ)*RECUR(IlfKOf ITR>*X 
IFICX OE CHIN) GO TO TO 
CHIN-CX 

78 CONTINUE 
80 CONTINUE 

IPINP GT 0 OR LOUT GT.O) GO TO 354 
OHIN «• 2<NX1 - MINX) 

MR!TE46r201} NXvH<NX)fOHINf2(NXl 
RETURN 
C 

354 CALL PADCST 

lFlZ(NX).LE.t9.0E301 GO TO 320 
GUESS - GUESSI 
WRITE {6f210l GUESS 
320 IFCEXTRA GE*99 91 GO TO 55 

201 FORHAT (IWOf 13UH*)« 17H SOLUTION rlZUHAl/'lH tI3f29X* 

1 3lF9.2t5Xn 

202 FORHAT (14H1GUESS TOO LON I 

203 FORMAT ( 19H1EXCEE0E0 500 NOOESI 

^05 FORKAT llHlt55HB RANCH AND BOUNO NODE VALU 
1 E S/58HQN00E BRANCHED COST YEARS RECURRING NON-RECURRING 
2>5Xf5HTOTAL/13H NO. FROMt5Xfl2HNO. S\ISTAIN,5X«3<SHB0UN0t9X)/) 
210 FORMAT I12H NSW GUESS ■* F12.2I C 

99 RETURN 
END 


IV G LEVEL Li KCO 4 
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DATE - 70113 15/09/56 


MEMORY REQUIREMENTS 00183E BYTES 
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F88^LEVEL LINKAGE EDITOR OPTIOKS SPECIFIED LISTiNCAL«HAP 

variable options used - S1ZE«riZ6976tZA576l DEFAULT OPTIONISI USED 

UWOOOO MAKE HDX02CKIR) 

1EW0461 IBCOHa 
1EV0461 UNPACK 
1EV0461 PACK 
IEW0461 LBOUNO 
< lEUOAAl PAOCST 
IEN04G1 HIND 


MODULE NAP 


CONTROL SECTION ENTRY 

name origin length name location name LOCATION NAME LOCATION HAKE LOCATION 

CHOOA 00 1B3E 

NONDIH IB4Q 1C 

VEHCLE I8«0 ABO 

STAGE ZOtO 6EA 

HISSON 26FB A90 

DSCOST 3188 183B 

PADS 49C0 S78C 

VEHREC 8150 3CF4 

CAPMAT BE48 FA4 

CKOOZE COFO 84 

SCRACH CE78 S3FC 

SAVEPT 12278 184 

SAVELB 12400 18 


ENTRY ADDRESS 00 

TOTAL LENGTH 12418 

A***HQX02CN NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE OIRECTORY 


IEN046L WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCEr NCAL WAS SPECIFIED 


I17» QS/360 FORTRAN H DATE 70 1I3/15*10«35 

COMPILER OPTIONS - NAHEi* HAIN»OPTeOP«L lNECNTe44 »S0URCE»BCD«NQL1$T (NODECK»LOADtNDHAP«NOEO|T« IDrNDXREF 
|$N 0Q02 subroutine OECISN (HYFLAGI 

C* SET UP DECISION COST CATEGORIES AND THEIR AVAILABILITY 
ISN 0003 INTEGER*? NOKRECtLYDiKPAO»VEH|NPFAH«NpSTGfNPlNTL«NPINTU 

C storage for MAlNt OECISNi STGNUH* CAPABLf AVAILt AND CHOOZ 
t ISN 0004 COHKON/HONOIH/ NUHOtNSTG,HYRS*NFAH.NCl iNP »NV 

C STORAGE FOR HAIN. DECISNf STGNUM. CAPARL* AND AVAIL 
' ISN 0009 CONHDN/VEHCLE/ NPADI »VEH14i60 ) tNYP tEi 60 1 

C storage for NA1N( DECISNt STCNUH* AND AVAIL 
ISN 0006 COHMON/STAGE/ LSA(40| * SNR(4U,STG(40)tSUSt40),NYS<40),SU$LS(4Df2)t 

1 NFS(40t4) 

C STORAGE FOR HAIH» OECISNi AVAiLt AND CHOOZ 
ISN 0007 COHMON/DSCOST/ DS ( 100) fSUSTUQO ) iKYDUOOI tLYOUOO) »NQNRECt 120*20) 

C STORAGE FOR MAIN* OECISN* AND STGNUM ^ 

ISN OOOB V COHHON/INT/ NFHL(40)*NFHU(40)fDINT(40)*S)NTr40)*SINTLS(40t2I 
C STORAGE FOR MAIN AND OECISN 

ISN 0009 CQHHON/FAKILY/ KODEP(3O)tFMNRC3D1*FHSUS(30) *FHSLSl30»2)tFAH(30) 

ISN OOlO COHKON/PADS/ PFAMOOO* 5*3) t PFAHS<30t5*9) tNPFAH(3D* 5) » 

1 PSTGD(30* 10*3 )»PSTGS(30» 10*3 )tNP5TGI30« 10) »P1HTS130*5*3). 

2 NPINTL<30*51 »NPINTU[30*5)*PAD(3D) 

C STORAGE FOR OECISN ONLY 

ISN 0011 COHHON/SCRACH/ HATdOO ) *LYP 1 30) *NYPI30) *HAF (30.3) * 

1 NATCl40*3)iKAPFl30«5>fMAPS(30tlO]»HAPIl30t5}*OUHHY(4045)* 

2 HAS(40i3}* VH{2*120) 

C 

**«SET UP OS COSTS FOR BRANCH AND BOUND PROCEDURE*** 

C CALCULATE AVAILABILITY OF EACH DECISION COST 
C 

I5H 0012 NUND • 0 

ISN 0013 00 3 I a l*N$TG 

ISN 0014 LSAm - MINoaSAm*MYRSl 

ISN 0015 HASn.n - 0 

ISN 0016 IFISNRmcSUSm.LT* 01) 60 TO 9024 

ISN OOIB NUHO * NUKO t I 

ISN 0019 OS 1NUH0)>5NRm 

ISN 0020 SUST |KUMD1*SUSm 

ISN 0021 HATtNUKO) * I 

ISN 0022 NASlItl) • NUHO 

C NYU - FIRST YEAR CONPQNENTS DEPENDENT ON OEV COST NUHO ARE AVAILABLE 
ISN 0023 NYD(NUMO) ■ NYS(I) 

c LYO • LAST YEAR COMPONENTS DEPENDENT ON OEV COST NUHD ARE AVAILABLE 
ISN 0024 LYOINUKO) • LSAItl 

ISN 0025 9024 00 9DpS J > 1*2 


ID-10 


I CL'y 


1 



i It. ' 1 I! 


\ 


{ OiMI 

I 


* I , \ tl , ^ t i 


1 ' i .i 


ISN 0117 
ISN 0118 
ISK 0119 
ISN 0120 
ISN 0121 
ISN 0122 
ISN MVi'i 
ISN 012S 
ISN 0126 
ISN 0127 
ISN 0128 
ISN 0129 
ISN OlSO 
ISN 0131 
ISN 0132 
ISN 0133 
ISN 013A 
ISN 0135 
ISN 0137 
ISN 0138 
tSN 0139 
ISN 0140 
ISN 0141 
ISN 0142 
ISN 0143 
ISN 0144 
ISN 0145 

ISN 0146 
ISN 0147 
ISN 0148 
ISN 0150 
ISN 0151 
ISN 0152 
ISN 0153 
ISN 0155 
ISN 0156 
ISN 0158 
ISN 0159 
ISN 0160 
ISN 0161 
ISN 0163 


HAPFIItJI « NUKO 
NYOiNUMDI <r HYRS 
LYDINUHOI » HYRS 

9030 CONTIKUS 

DO 9031 J • ItlO 

^ HAPS(IfJ) •» 0 

IP (PSTODUtJtll e PST6SUfJflI«LT *01 I GO TO 9031 

NUNO Q NUHO e 1 

DSiNUHO) > PSTGDIUJill 

SUS7IN0HD) • PSTGS(I«JtlI 

H&TINUHOI ■ -300 - I 

HAPSMtJI « NUNO 

NYDINUNOI e KYRS 

LYOCNUHDl = MVRS 

9031 CONTINUE 

DO 9032 J - lt5 

HAPKI^J) - 0 

IF (PINTSUtJtU 1.7. .011 GO TO 9032 
KUHO a NUHD C 1 
DSINUHO) > 0.0 
SUST(NUMO) • PlNTSritJtl) 

HATINUNO) > -400 - I 
KAPICIfJ) • NUHD 
NYDINUHD) > HYRS 
LYD(NUKD) > HYRS 

9032 CONTINUE 
9011 CONTINUE 

C COMPUTE AVAILAOILITY OF PAD COSTS 
DO 9033 t • IfNV . 

DO 9033 J « lt2 
IF (NPADIJfM.EO 0) GO TO 9033 
N ■ NPAO(Jfl) 

J1 ■ J £ 1 
□0 9034 K ■ 1*4 
IF IVEHlKft) E0.01 GO TO 9033 
L ■ VEH<K*t) 

IF (HASUtJl) EO 0) GO TO 9035 
H > HASU*Jn 

NYD(K) • HINOINYDIHltNYPUtin 
9035 DO 9036 U » lylO 

IF (NPSTGINtlll NE.L) GO TO 9036 
IF IHAPSINtll) EO 0) GO TO 9037 


ISN 0165 H • HAPSiNtll) 

ISN 0166 NYD(H) • HlNOINYO IH) *NYP( J* I) 1 

ISN 0167 GO TO 9037 

ISN 0168 9036 CONTINUE 

ISN 0169 9037 00 9038 !1 < l«4 

ISN 0170 IF (NFStLyin EO.O) GO TO 9038 

ISN 0172 KX B NPSILfll) 

ISN 0173 IF (HAFIXXfJU EO.O) GO TO 9039 

ISN 0175 H > NAFiKXyJl) 

ISN 0176 NyDIH) « N!NOlNYO(H)*NYP<J*in 

ISN 0177 9039 DO 9040 12 ■ 1*5 

ISN 0178 IF (NPFAMrNria) NE KX) GQ TO 9040 

ISN 0180 IF (HAPP<N*I2>«E0 0) CO 7G 9041 

ISN 0182 H • HAPF|N»I2) 

ISN 0183 NYD(H) » H INOINYDIH) yKYP <J* I) I 

ISN 0184 GO TO 9041 

ISN 0185 9040 CONTINUE 

ISN 0186 9041 IF |K E0«4) GO TO 9034 

ISN 0188 IP (VEHCKCltll EO 01 CO TG 9034 

ISN 0190 LI « VEHIKCltI) 

ISN 0191 IF (NCl.EO 0) GO TO 9047 

ISN 0193 DO 9045 IX > 1*KCI 

ISN 0194 IF (NFHUtXl.NE KX) GO TO 9045 

ISN 0196 DO 9046 lY « 1*4 

ISN 0197 IF INFNUIIX) EQ NPStLU IY))GO TO 9048 

ISN 0199 9046 CONTINUE 

ISN O2O0 CO TO 9045 

ISN 0201 9048 IF (HAICI IXy J1 ) «EQ 0) GQ TO 9045 

ISN 0203 H B NAICnX»Jl) 

ISN 0204 NYDIH) « HlNQINY0IH)iNYP{4*I) ) 

ISN 0205 9045 CONTINUE 

ISN 0206 9047 00 9042 ]3 » 1,8 

ISN 0207 IF INPINTUN.13I.NE XX) GO TO 9042 

ISN 0209 DO 9043 14 « 1.4 

ISN 0210 IF INPINTU(N|I3).E0 NFS(LE.I4») GO TO 9044 

ISN 0212 9043 CONTINUE 

ISN 0213 GO TO 9042 

ISN 0214 9044 IFCHAPI (N.IB) EQ 0) GO TO 9042 

ISN 0216 H - KAptINitS) 

ISN 0217 NYDIHI > HIN0(NY0<K1 .NVP( J* I > } 

ISN 0218 9042 CONTINUE 

ISN 0219 9038 CONTINUE 


D-12 


CL 


ri'. ‘ 


I 



I) ' I 


( 


C . 


I 


/ '» 




tSN 002 6 
l$H 0027 
ISN 0029 
0030 
ISN 0031 

ISM 0032 
rSN 0033 
ISN 0034 
ISN 0035 
tSN 0036 
ISN 0037 
ISN 0036 


ISM 0040 
ISN 0041 
ISM 0042 
iSN 0043 
ISN 0044 
ISN 0045 
ISN 0046 
ISN 0047 
ISN 0049 
ISN 0050 
ISN 0051 
ISN 0052 
ISN 0053 
ISN 0054 
ISM 0055 
ISN 0056 
ISN 0058 
ISN 0059 
TSN 0060 
tSN 00 61 
ISN 0062 
ISM 0063 
ISN 0064 
ISM 0065 
tSN 0066 
ISN 0067 
ISN 0069 
ISN 0070 


KASdfJClI » 0 

IF (SU5LS{ltJ>»tT«.0L) CQ TO 9025 
NUHO » NllHD e 1 
DSINUHO) >00 
SUSTIMUHOI - SOSLSIltJ) 

NATIMUHOl • ] 

MASIItJOn « NUHO 
NYOINUNOI > HYRS 
tYOlNUHDI > LSAm 

9025 CONTINUE 
3 CONTINUE 

IFIMFAH EQ 0) GO TQ 601 
C calculate family AYAIU8ILITY DATE 

C FIRST YR« family IS AVA1L« • 1ST YR. ANY STAGE IN THAT FAMILY IS AVAIL 
DO 422 11 - liNFAH 

I > KODEFim f 

LYFUI - 0 

422 NYFm « HYRS 

00 423 J > 1 fNSTG 
DO 424 MS ■ lt4 

1 • NPS 4 J»MSI 

IF(UEO 01 CO TO 423 
NYFin » HINO (NYfdUHYSUn 
LYFdJ > HAXOCLYFm iLSAUn 
424 CONTINUE 

423 CONTINUE 

DO 6 II • IfMFAH 
I - KOnEFdll 

HAFd«d > 0 

lPIFHNRd)CFHSUSd)«Lt .Oil CO TO 9026 
NUHD > KUHD £ 1 
OS (NUHOI ■ FHNRd) 

SUST |NUMO)«FHSUStI) 

MAKNUMOJ « -I 
KAFdtl) » KUHD 
NYDINUMD} > NYFCn 
LV0INUH01 « LVFd) 

9026 DO 9027 J > lt2 
KAFdtJClI • 0 

IF (FhSLSIltJ) LT. on CO TO 9027 
NUHO « NUMO C 1 
DSINUHOI >00 


ISM 0071 SUSTfNUHOI - FHSLSdiJJ 

ISN 0072 HAT4NUH0T > -1 

ISN 0073 MAPdfOCn > KUHD 

ISN 00T4 NYDINUHD) > MYRS 

ISN 0075 LYOINUHDI > LYFdl 

ISN 0076 9027 CONTINUE 

ISN 0077 6 CONTINUE 

ISM 0078 601 1FIHC1 EO.Ol GO TO 61 

ISN 0080 DO 60 1 > IfNCl 

ISM 0081 OF > NFHLdI 

ISN 0082 KP > NPHUm 

ISM 0083 KAICUrll > 0 * 

ISN 0084 IF(DINTdKSINTdKLT« Oil CO TO 9028 

ISH 0086 NUHD > NUMO £ I 

ISM 0087 OS (NUHOI > DIHTdl 

ISN QO08 SUST (NUH0I>5!NTdI 

ISN 0009 HATCNUHOI - -lOO -t 

I5N 009D KATCIIfl) a NUHD 

C FIRST YR. INT. COST IS AVAIL* « 1ST YR BOTH FAH$ ARE AVAIL 
ISN 0091 NYDfNUHDl > MAXOlNYFIUFItNYFIXF)! 

ISM 0092 LYDINUHD) > HtNO(LYF(JFnLYF(KF}I 

ISN 0093 9028 DQ 9029 J > 1»2 

ISM 0094 HAICUtJ&U > 0 

ISN 0095 IF (SINTLSd*J)*LT» Ol> GO TO 9029 

ISN 0097 NUHD • NUMO C 1 

ISN 0098 DSINUNDI > 0.0 

ISM 0099 SUSTfNUHOl « SINTLS(I»J) 

ISN 0100 HAT(NUHO) > -100 - I 

ISN 0101 MAICdrJCn ■ NUHD 

tSN 0102 NYDINUHDI > HYRS 

ISN 0103 LYDINUHD) « HINORYFIJF) (LYFIKPII 

ISN 0104 9029 CONTINUE 

ISN 0105 60 CONTINUE 

ISM 0106 61 IF INP EO.Ol GO TO 9010 

ISN OkOd DO 9011 I IfNP 

ISM 0109 00 9030 J > ItS 

ISN 0110 HAPFdtJI > 0 

ISN 0111 IPIPFAHDdtJfl) £ PFAHSdfJtll LT .01) GO TQ 9030 

ISN 0113 NUHD • NUHD C 1 

ISN 0114 DSINUHD) - PFAHDIItJrl) 

ISN 0115 SUSTINUHDI > PFAHSd*J»ll 

ISN 0116 HAT(NUHD) > -200 - ! 



'J riL) 



D-11- 



ISN Q220 
tSH 0221 

ISN 0222 
15N 0223 

ISN 0225 


ISN 

ISN 

ISN 


0226 

0227 

0226 


9036 CONTINUE 
9033 CONTINUE 


C 

9010 CA1.L HATCHIMYPL*6J 

IFtHYFUO EQ*1) RETUf^N 
C 

CALL PRINT 


C 


HTFLAC 

RETURN 

END 


0 


**M*» END OF COHPILATION •«»**» 


F8B-LEVEL Xlh'KACE EDITOR OPTIONS SPECIFIED LIST.XREFtHAP,NCAL 

VARIABLE OPTIONS USED - SIZE* ( 1 26976*26576) DEFAULT OPIIONIS) USED 

lEUOOOO NAME HaX02DCIR) 

1EWD661 HATCH 
IEU066L PRINT 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 


NAME 

ORIGIN 

LENGTH 

NAME LDCATION 

NAME LOCATION 

NAME LOCATION 

NAME LOC^TIOIt 

DECISN 

00 

1198 




' 

NONDIK 

119B 

IC 





VEHCLE 

11B8 

4B0 




1 

STAGE 

1666 

6E4 





OSCOST 

1050 

1838 





INT 

3588 

3C0 




• 

FAMILY 

396B 

200 





PADS 

3C1B 

378C 





SCRACK 

73A0 

53PC 




► 


LOCATION refers 

TD SYM80L 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

no 

NONDIH 

NONDIM 

116 

vehcle 

VEHCLE 

118 

STAGE 

STAGE 

lie 

DSCOST 

OSCOST 

120 

INT 

INT 

126 

FAMILY 

family 

128 

PADS 

PADS 

12C 

PADS 

PADS 

130 

PADS 

PADS 

136 

SCRACH 

SCRACH 

138 

SCRACH 

SCRACH 

X 

MATCH 

SUNRESQLVED 

160 

PRINT 

SUNRESOLVED 




ENTRY ADDRESS 

oo 





TOTAL length 

CTA6 


* 




<9*«*hoxo2dc now replaced in data set 


DIAGNOSTIC MESSAGE DIRECTORY 


1EW06&1 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE. NCAt MAS SPECtFIEO 



<171 


OS/360 FORIRAN 


DATS 70 113/15 12 OA 


COMPILER DRTIOMS - NAHEb KAtN,OPT>i02»UNECMT>AA,SOURCEiBCD|NOLlSTfNODECKTLO*OfNOMAP,KOE01Tf IO i MO mF 


ISN 0002 

ISN 0003 
ISN 000^ 

ISN 0005 
ISN 0006 
ISM 0007 
ISN 0008 

ISN 0009 
tSN 0010 
ISN OOU 
ISN 0012 


ISN 0013 

ISN 0015 
ISN 0016 
ISN 0017 
ISN OOlS 
ISN 0020 
ISN 0021 
ISN 0022 
ISN 0023 
ISN 0024 
ISN 0025 
ISN 0026 
ISN 0027 
ISN 0029 
ISN 0030 
ISN 0032 
ISN 0033 
ISN 0035 
ISN 0036 
ISN 0037 
ISN 0038 
ISN 0039 
ISN 0041 
ISN 0043 
ISN 0044 


SUBROUTINE LBOUNO 

C CALCULATE LOWER BOUND PENALTY FUNCTION 
REAL NPERPO 

INTEGER*2 LETTtLYRtHiKtNDNRECiLVOtNSAVEtKFEPtNNUlT 
C STORAGE FOR CH002 AND LBOUNO 

CONNON/SAVELO/ KXvX)iNXrNCOSTtK»KZ 
COKRON/NONDIH/ NUHD*NSTfi tHYRS*NFAHtNC 1 iN}»»NV 

COmnN/HISSrid/ LFTT<2Gn)*LYR(25ni«LTftl5nWYRLNr250)(HtNr2SO),NN 
COMHON/DSCOST/ D5 ( 100> i SUST ( lOOl tNYDll OOl « LVO< 1001 yNONREC I 120f 20) 
C STORAGE fOR MAIN* STCHUMy CHOOZt AND CAPABL 

CDMMDN/VENREC/ RECUR(6Ot2Oi2)yNNULTr60y5OItIFLAO 
COMHON/CAPHAT/ VNHt4,250),NV2 
COHHON/CHOOZE/ NEXTf 6UES$rNP£RP0(30)»LP 
COHMON/SCRACN/ TOS (500) »K2<500], 2(500] tW (500) iNSAVEIlOU 
1 N0OE(5«50D]«L2(L00)tHza2O)iXEEP(10D)*COST(2t250)»WR(10O} 

IF (K EO 50) GO TO 54 

C 6**FIND new recurring LOWER BOUND*** 

49 H(KX)»0* 

W2(KX) « 0*0 
DO 50 JelyNh 

!F(YRLH(J) EQ 0.0) GO TO 50 
CALL UNPACK|M2yVNK(lpJ)yNV2tU 
COST(lfU) • 1 0E30 
C0ST(2*J] > U0E30 
KO » LYRtJ) 

JX * LETT(J1 
ITR » LTRUX) 

DO 48 I>1»NV2 
iFCMZd) EQ.O) CD TO 48 
DO 47 H*l,20 

IPtNONRECdtH) EQ 0) GO TO 47S 
NO a NONRECUtH) 

1F(K1«LZ(ND} LT kg 1 GO TO 48 
47 CONTINUE 

475 II • I G HIN0(0*tSIGN(NVyKV't)> 

X • NMULTCIlyJX) 

CX-YRLH|J|*R£CURm»KO» ITR)*X 
1F(CX (*F CQ$T(2|jn GO TO AR 
IFICX.LT.COSTUtJM GO TO A? 

C0ST<2tJ) - CX 
GO TO 48 


ISN 0045 


43 

COS7(2«J) « COSTdtJl 



ISN 0046 



COSTdyJ) • CX 



ISN 0047 



HINIJ) > 1 



ISN 0048 


48 

CONTINUE 



ISN 0049 



W(KX)«W|XX)LCOSTd»J) 



ISN 0050 



H2(KX) a W2(XX) G CUST12«J) 



ISN 0051 


50 

CONTINUE 



ISN 0052 



IFIKX EO NX) GO TO 510 



ISN 0054 



KZ a KI*LZ(NCOST) 



ISN 0055 



lFtWIKX).LT.1.0E20) CO TO 5P8 



ISN 0057 



TOO - 0 0 



ISN 0050 



GO TO 38 



ISN 0059 


508 

1F(KZ EO 0) GO TO 510 



ISN 0061 



KY « NSAV£(K-I1 



ISN 0062 


512 

IF(W(KX} GTWIKYI- COO 1.AND.K2 IKX) 

GT.WZIXYJ- 00011 60 TO 

38 

ISN 0064 


IFrU(KX) GT.UIKY)" cool AND W2IKX) 
1 1 0E2S) GO TO 38 

CT 1 OE25-ANO W2(KYI-H2I 

IKX) LT« 



C 

c 


CALCULATE LOWER BOUND USING PENALTY FUNCTION BASED ON VEHICLES 

ISN 0066 


510 

DO 350 NIC a IfNUHD 



ISN 0067 



KESPINICJ » 1 



ISN 0068 



]F{LZ(NTC) LT.15) XEEP(NIC) * 0 



ISK OOTO 


350 

CONTINUE 



ISN 0071 


355 

TGO *00 



ISN 0072 



IV a 0 



ISN 0073 



TG • 0.0 



ISN 0074 


35A 

DU 351 IX a 1»NV2 



ISN 0075 



iFilX.EO.lV) GO TO 351 



ISN 0077 



VGD > 0.0 



ISN 0078 


330 

00 90 J a ItNH 



ISN 0079 



IFIYRLH(J) EO 0 0) GO TO 90 



ISN 0001 



IFIHINIJI eo IX) GO TO 91 



ISN 0083 


90 

CONTINUE 



ISN 0084 



GO TO 351 



ISN 0085 


91 

PF a 0 0 



ISN 0086 



KTV a 0 



ISM 0087 



no 34! H p 1 »20 



ISN 0086 



IFINONRECdXfHI.EO 0) GO TO 3415 



ISN 0090 



NO • NONRECdXtHi 



ISN 0091 



IFIXEEPINO) EQ.O) GO TO 341 



ISN 0093 



VCO a V60 eOS(ND) C FLOAT (KI )*SUST (NO) 


ISN 0094 



RTtf a 1 






.D-14 






tSN 

0095 

3A1 

CONTINUE 

ISN 

0096 

3A15 

IFIKTV EO 0> GO TO 351 

ISN 

0098 


00 331 1«NH 

ISN 

0099 


IF(YRLHIJ) LT 0 001 OR H1N(J> NE«IX) GO TO 331 

ISN 

0101 


PF a PF t COSTIZtJI - COSTUrJI 

ISK 

0102 

331 

CONTINUE 

ISN 

0103 


VGO a AHtNllVGO.PFI 

ISN 

OlOA 


IFIVGO LT*T6) 60 TO 351 

ISN 

0106 


IV • IX 

ISN 

0107 


TC = VOO 

ISN 

0108 

351 

CONTINUE 

ISN 

0109 


ifitg*lt guess* on go to 37 

ISN 

Dili 


TCO ■ 7G t TOO 

ISN 

0112 


TG - 0 0 

ISN 

OIU 


DO 352 H * 1,20 

ISN 

OUA 


IFINOMRECI IV,H).EO.OI GO TO 3S3 

ISN 

0116 


NO » NONRECnVtHI 

ISN 

0U7 


KEEPINO) » 0 

ISN 

0118 

352 

CONTINUE 

ISN 

0119 

353 

CO TO 35A 

ISN 

0120 

37 

TGO ■ TGO £ TC 

ISN 

0121 

38 

IF1K2.E0»0> TDSiKXI • TOSINXl 

ISN 

0123 


|P<Kl OT 0»AND KX«NE NXl TDSIKX1 « TDSINXl 
1 £ DSINCOST) £ FL0ATUK-1»*KI“NYD<NC0ST1C11*SUSTINC0STJ 

ISN 

0125 

5A 

IF (KX*EQ NXI TDSINX) • TDSINXI £ 

1 OSINCOSTl £ FLOATtUD|KCOSTl“^TOtNCOST>£ll•SUST(NCOST> 

ISN 

0127 


DHIN • TOO £ TDSCKXI 

ISN 

0128 

^ 507 

ZIKXI ■ DhIN £ HIKXI 

ISN 

0129 


IFILP*GT 0> 



INRITEIBtZOAl KXtKXtNCOST»KZtN(KX),DHIN| UY.X) 

ISN 

0131 


RETURN 

ISN 

0132 

20A 

F0RNA7 (IH fA(I3«5XU3<F9 2*5X11 

ISN 

0133 


END 


end of COMt»ll.ATIOM 


Fea-VEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST,XREF»MAPtNCAL 

VARIABLE OPTIONS USED - SIZE>I12B976*2^$7SI DEFAULT QPTIONIS) USED 

lEKOOQO NAME KDX02LBIRI 

IEM046L 1BC0H« 

iemdam unpack 


CONTROL SECTION 

NAME ORIGIN length 

LBOUNO 00 AAC 

SAVELB ABO 18 

KOHDIH A6B 1C 

KISSON ABB A90 

OSCDST 1518 1838 

VEHREC 2D50 3CFA 

CAPHAT BAAS PAA 

CHOOZE T9F0 BA 

SCRACH 7A78 53FC 


LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

LOCATION^ 

REFERS TO SYMBOL 

IN CONTAOL SECTION 

150 

SAVELB 

SAVELB 

ISA 

NONDIH 

NONDIH 

158 

HtSSON 

HISSON 

15C 

DSCO&T 

OSCOST 

ISO 

VEKREC 

VEHREC 

I6A 

VEHREC 

VEKREC 

148 

VEMREC 

VEHREC 

16C 

CAPHAT 

CAPHAT 

170 

CHOOZE 

CHOOZE 

ITA 

SCRACH 

SCRACH 

178 

SCRACH 

SCRACH 

17C 

SCRACH 

SCRACH 

180 

! BCOH* 

iUNRESOLVED 

18A 

UNPACK 

SUNRESOLVED 

ec 

SCRACH 

SCRACH 

9A 

CAPHAT 

CAPHAT 


ENTRY mDORESS 00 

TOTAL LENGTH C£78 


«»aNOX02LB NOW REPLACED IN DATA SET 


CROSS REFERENCE TABLE 

ENTRY 

NAME LOCATION NAME LOCATION NAME LOCATION NAHE 


diagnostic MESSAGE DIRECTORY 


LOCATION 


D-15 



MtJ ) 


FORTRAN 


0001 

0002 

0D03 


0004 

0005 

0006 
0007 


oooe 

0009 

0010 


0011 

0012 

0013 

0014 

0015 

0016 


FORTRAN 


0017 

0010 

0019 

0020 
0021 


0022 

0023 

0024 

0025 

0026 
0027 
0020 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 
0030 


0039 

0040 

0041 

0042 

0043 

0044 

0045 


I I( * ill V 1 


IV G LEVEL 1« HOD 4 HAIN OATg « 70113 15/13/01 

c this program generates the least cost assignment of launch 

C VEHICLES TO SPACE MISSIONS A BRANCH AND BOUND TECHNIQUE IS USED 

C TO reduce the combinatorial COMPLEXITY OF THE PROBLEM SEVERAL BRANCHES 
C ARE CREATED AT EACH NODE ONE OP THE BRANCHES EXCLUDES THE NEXT 
C COST AND THE OTHERS ASSUME EXPENDITURE OF A NON-RECURRING COST 
C VITH 1>2 YEARS OF SUSTANlNG COST ADDED AT EACH NODE 

C PENALTY FUNCTIONS ARE USED TO SHARPEN THE LONER SOUND 

C HODIFIED PENALTY FUNCTION IN LOHER BOUND BASED OH VEHICLE INFORHATION 
C «*««TK!S VERSION USE$ RATE EFFECTS IN RECURRING COSTS**** 

C«»*«»THIS VERSION INCORPORATES PAD COSTS***** 

C 

c 

DOUBLE PRECISION HISNAH 
REAL NPERPD 

1NTEGER*2 lETTrLVR,HIN,NONREC« LVD*HPAO*VEH,NPFAHtNPSTG,NPINTL» 

1 NPiNTUtNHULT 

C STORAGE FDR HAINt DECISN» STGNUK> CAPABLt AVAIL* AND CHOOZ 
CQHHON/NDNDIH/ KUHO»NSTG«HYRS *KFAH*NC I iNPiNV 
COHKON/VEHCLE/ HPA0(2*6DI *VEK(A |60 ) *NYP (2»60I 
C storage for main* STGNUHr CAPABLt AVAIL* AND CHQQZ 

COMKDN/HISSON/ LETT! 2 50 1 * LVRI250 1 , LTRtSO» «rRLH(250l *HIH(250}»NM 

C storage for HA]N» DEClSNr STONUHt AVAIL* AND CHDOZ 

COHHUN/STAGE/ LSA (40 1 *SNR (4U ,STG 1401 * 5USI4QI ,NYS t40I iSUSLSfAO* 21* 

L NFSI40*4> 

C STORAGE FOR MAIN* OECISH* AVAIL* AHD CHQOZ 

COHMON/OSCOST/ DSIIOOI fSUST(IOO) *NYO ( 100 1 »LY0U001 *KOKREC( 120*20) 

C STORAGE for main* 0EC!SN» AND STONUH 

COMMON/ INT/ HFML14D),NFHU(40I*OINT(40)*SIHT(40)*SINTLS(40*2) 

C STORAGE FOR HA]N« DEClSNf AND CHOOl 

COHHON/PADS/ PFAHOt30»5t 3 ) *PFANS (30.S»3) *NPFAH(30*51 * 

1 P$TG0<3O.lO*3)*PSTGS(30«l0»3)«NPSTG(3O*lO),PINTS(30»5*3)» 

2 NPINTL(3Dt5>«NPlNTU(30»5)*PAO(30> 

C STORAGE FOR MAIN* STGNUM* CHOOZ* AND CAPA9L 

COHMON/VEHREC/ RECUR(60*20«2 I *NHULT (60*50) * IFLAG 
C storage for main AND STGNUM AND REUSE 
COKHON/REUSBL/ NU(50>»UPP(50) 

C storage for main* AVAIL* AND CHOOZ 
COMMON/CAPHAT/ VNM(4,250)*IJV2 
c storage for main and UECISH 

COHHDN/FAHILY/ K0DEFI30) *FMNR (30) »FHSUS( 30) , FHSL$(3D«2) *FAH(30) 

C STORAGE FOR MAIN AND-STGHUM ^ 

* -COMMON/ INTREC/ RIHT( 40 ] *PLCINT(40 > 

COHMDN/STGREC/ NSY(4D>*H00El4O«3)*SR(4Ot31»PLC(40*3>tPDJ(31t 


IV 6 LEVEL I* HDD 4 MAIN DATE - 70113 15/13/01 

1 SRJ(3«3) ^ 

C STORAGE FOR MAIN AND CAPABL 

> COHMON/HISREQ/ I VEHA( 50) * VLR( 50 > *HPR(50 )* MPLS (50) iHRlSO) *NRR(50) t 
I RPLH(50)*NTRIP(50) 

COHHON/VEHIN/ I V*KNV* IS*NHlS*NDPT* KODEI 40) tKOOEP (30) « I P * RPL0(50) 

C STORAGE FOR MAIN AND CKODZ 

COHMON/CHOOZE/ NEXT*rUESS*NPERPDI30)*LP 
C STORAGE FOR HAIN AND OUTPUT 

COHM0N/SAVE0P/HISNAHI5OI* IDY 
c storage for Main only 

COHMON/SCraCH/ KISN(50*20),KVEH(50>*PB<50)*HZ(50)tKODEM(SO)» 

I LZ(201 tNpSTX(30*10)*NPlNXL(30t5)iNPINXU(30t5)*NPFAX(30f5)* 

I PLR(5O),PLS(50)»PLD(5O)*PLH0t5O)tDUHMY(2965)iVH(2*12O) 

C 

DATA BLANK/IH / 

SNR(41) • blank 
C 

11 nstg « 0 

NFAH ■ 0 
NCI ■ 0 
HP ■ 0 
NHIS • 0 
NV«0 

t IFLAG = 0 

REA0(S*I00I NOPT*HYRS*lBY*GUESSf lP*lSrlPH*II,lMtlVtLP 
IF IMYRS.EO 0) 60 TO BQ6 
HRITE (6*104) 

IF(1S LT 0) GO TO 12 
MR!TF(6»213) 

LX • 0 

DO BOOO ! a 1,41 

REAO(5*101) KOOEnitSTCm* (SR(1*J) *3-1*3)* (PLC( It J)«-I>li31t 

1 SHRm,SU5tn*NY$n),LSA(ntNBYm*{NFSnfJ>*Jal*4)* 

2 (HQOEUtJ)* j ” 1»3) 

IFIXQDEm EO O) GO TO 12 

C INPUT NUil) ■ -2 IF HAHT PROGRAM TO CALCULATE ESTIMATE FOR HU 
READ (5*9021) ISUSLSd * J1 • J-l«2 ) *NU( II * UPP( I ) tRPLOU 1 
NSTG »» NSTG * I 

WRITE (6*8001) 5TC(I)*(SRn*U)fPLC(I*J)*J*l«3)«SNRm*SUS(n, 

1 NY5m*LSA(I)t(NFS(l»U)tJ>l*4)tNBY(I) 

DO 8002 J - 1*3 
IF |H0DE(I*J)«E0«0) GO TO 8Q02 
LX - IX ♦ 1 
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FQ(tTKAN 

00<i6 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 
0087 


FORTRAN 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 
010 6 

0107 

0108 

0109 

0110 

oin 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 


M-li (tUk 




IV 0 LEVEL If KOD 4 MAIN DATE ■ 70113 15/13/01 

NODEflfJl ■ LX 

REA0<5t80031 ISRJlLXiK}i X • lt3)r PQJILXI 

HRITE{6f80Q4> J, POJ< LX| < LX, 11 » POJ< LX 1 1< SRJ (LXfX } tX-2>3) 

8002 CONTINUE 

IF(RPLOIT) OT 001) MRITE(6,B005) UPP(I) 

8000 CONTINUE 

IZ IPIIFH IT 0) GO TO 14 
NR1T£(6,214) 

DO 13 J - 1,30 

READ! 5, 102 1 I ,FAHl I ) tPKNR 1 11 tFHSUS 1 1 1 , IFHSLSU ,X),K«lt2> 

IFII EQ 0) GO TO 14 
NPAM * NFAH 4 1 

KOOEFfJl St I , 

13 VRlTE(6r2141)K0DEF<J>, PAM 1 1 1 ,FHNR( I) ,FHSUSm 

14 IPUI LT 0) GO TO 1716 
WRlTE(6t215> 

00 1715 I - 1,40 

READ I St 103) NPKLmtNFKUl I),RINTmtPLCtNTni,l>lNTm,SlNTn>r 
1 (SlNTLSntJ)«J=l,2) 

IFINPHLUI EO.O) GO TO 1716 
NCI * NCI 4 t 

J»NFHLm 

KsNFHUn) 

1715 WRITE (6,2161 FAH( J) , FAH( K| tRIHT ( I) tPLCINT (1) ,DINT (1 1 «SINT(I ) 

1716 IF (IP LT.Oi CO TO 9002 
WRITE (6*9003) 

00 9004 I B 1,30 

ACAD (5,9005) KOOEPt () ,PAD(l) ,NPERPOU> 

I IF (KODEPin.EQ 01 GO TO 9002 * 

WRITE (6,9006) KODEP ( 1 > , PAD( I ) , HPERPO (I ) 

NP « NP 1 

REA0(5,$0Q0)(NPSTXI I,J), lP5TGDU,J,K>,PSTG$(lt<JvK)*KBl,3)«J>L* 10} 

DO 700 si ■ 1*10 

700 NPSTGIltJ) B NPSTXdrJ) 

READ{5t5000MKPFAXn* J1»<PFAH0((tJ*K),PFAH5<I*JtKl*XBl,3},J>L,5) 
READ(5t50Q2MNPlNXLn»J)iNPiNXU(t*J),(PIMTSUtJtK).KBlt3)*jBl*5) 

DO 701 J B 1*5 
NPFAKIItJ) B NPFAXOfsl) 

NPINTLU.J) ■ NPlNXLUtsn 

701 NPtNTU(l,J) ■ NPTNXU(I,J1 
00 9022 J B 1,10 

IF (NPSTG(I,J}.EQ 0) CO TO 5009 
DO 9023 L B liNSTG 


IV G LEVEL It HOD 4 MAIN DATE » 70113 15/13/01 

IF (NP$TGn»Jl,NE KOOE(LI) GO TO 9023 
NpSTGdtJ) • L 

WRITE (6,5003) 5TC ID , <PSTGD( 1 , J*X) ,PSTCS( I, J,K) ,Kb1,3) 

GO TO 9022 
9023 CONTINUE 
9022 CONTINUE 
5009 DO 500 6 J > 1,5 

IF INPFAHll.J) EO 01 GO TO 500? 

L B NPFAHOtJl 

5006 HRITEI 6,50041 FANIL) ,(PFAKO(I,sl*K),PFAKSn*sltX) ,Xb1,3) 

5007 DO 5008 J > 1,5 

IF INPlNTLIIfJl EQ.O) GO TO 9004 
L » NPINTLdtJl 
LX B KPINTU(T,J) 

5008 WRITE(6,5005) FAHIL ) * PAH| LX) , ( PINTS 1 1 *J,X ),K » 1,3) 

9004 CONTINUE 

9002 CONTINUE 

IFUH LT 01 60 TO 20 

DO 1719 iBlfMVRS 
1719 LZ(])BlBr4I«l 

WRlTE(G,2m (L2m,!Bl,HYR$l 

1717 00 1718 1bL,50 

REa 0(S,1051 XOD£Hm,HlSNANm,PBm,VLRm,RPLK(I),NPR(I), 

1 NTRIP(I), (HISNII,J),J«1,HYR5) 

!F(K00EHU1«EQ 01 GO TO 20 
NH15 * NHI5 4- 1 

READ (5,107) PLRm,PLSn),PLDUl, 

1 PLHDm,NPLS(n,KR(I},lTRm*NRRril,IVEHA(n 

1718 WR1TE(6,Z19) I ,NISNAH | () * VLR 1 1) *UPR( I ) ,PB ( 1 1 , LTRI M • 

* 1 (HlSNt (,J),J«I,HYRS) 

20 IF (IS LTtOI NSTG « KNSTG 
IFIIFH LT«0) NFAH > KNFAH 
IFOt LT O) NCI > KNC! 

IF IIP LT 0) NPbKNP 

IFMH LTtOl NHIS b rNHIS 

IFlIHtLT 0) GO TO 3000 

***SET UP MISSION MATRIX BY YEAR*** 

NH B 0 

DO 4 I * ItNHlS 
00 4 J«1,HYRS 
1F(KlSN(I,sM«£0 01 GO TO 4 
NH B NK 4 1 

YRLHINMIb FLOATIHISNC Iisin * PBIII 
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PORTftAN tv G LfVEl It Hfin 4 MAfN RATE ■ 7GH3 16/1^/01 


0127 


LETT<NK}« I 

0128 


LYRrNH) • J 

0129 

4 

C ' 

CONTINUE 

0130 

3OO0 

CALL CAPARL 

0131 

C 

16 

WRITEr6»2001| N$TGtNV»NFAHrNCrtNP,NHTStHYRSt IBYtGUESSiNOPr 

0132 

C 

NV2 K 2 • NV 

0133 


CALL DECISN IHYFLAGl 

0134 

c 

IF IHYFLAG EOtl) CO TO 1 

0135 


IFI6UESS CT.ItO) GO TO 3005 

0136 


GO TO 3004 


c the FOLLOHING SECTtOM HfLL BE USED H>1EN SUBKOUTUlH COUNT TS AVAILABLE 
C CALCULATE GUESS FROK INPUT VEHICLE/NISSION SELECTION 
C REABIS^OZOJ IKVEHI n» I*LfNH|3> 

C URtTE(6*402n 
C DO 30 I « 1,NK2S 
C Kl c KVEHin 

C II • VEHdtKl] 

C 12 B VEHUtKU 

C 13 « VSM13»M1 

C 14 a VEHI4,Kl) 

C HRtTE(6»4022> HISNAKU ) tSTGU 1 }« ST0II2 1 tSTGIIS ) tSTGI 14) 

C 30 CONTINUE 
C DO 31 J ■ ItNK 
C • LETTIJ) 

C MIN(O) - KVEHIIl 

C 31 CONTINUE 
C CALL COUNT 

C THE FOLLOWING CARD SHOULD^ BE REPLACED 


0137 

013B 

3004 

TOT ■ ItOElO 
GUESS » TOT ♦ 01 


0139 

Sq05 

CALL AVAIL 


0140 

0141 

0142 

0143 

C 

8020 

calculate exponent 

AL052 > AL0GC2*) 

IF ns LTtO) GO TO 
DO 660 1-1,NS1G 
00 660 J>lt3 

FDR LEARNING CURVE 
8030 


FORTRAN IV C LEVEL 1« HOD 4 MAIN DATE - T0113 

\ 


0144 



IF IKOOEdtJ) NE*0> 00 TO 660 

0145 



PLCIItJ) tt AlOGtPLC(IrJn/AL0G2 

0146 


660 

CONTINUE 

0147 

6030 

iPm LTtO OR NCI EO 01 GO TO 8031 

0148 



DO 680 I>ItNCI 

0149 


6B0 

PLCINTin > AL0G(PLClNTmi/AL0G2 

0150 


B031 

CALL 5TCNUM UFLAGI) 

0151 



GUESS I > GUESS 

0152 

C 

620 

CALL CHOOZ 

0153 



IFINEXT.GE.SOOtORtGUESS LT .001) GO TO 1 


c 

c 


tFLAG > NUMBER OP TtMgS CHOOZ HAS 6ECN CALLED 

0154 



IPLAG ■ IFLAG * 1 

01 SS 

c 


CALL OUTPUT 

0156 

c 


CALL STGNUH riFLAGl) 

0157 



IF (IFLAGltEO 01 GO TO 1 

015B 



GUESS > ruEss; 

0159 



GO TO 620 

0160 


1 

KNSTG > NSTG 

0161 



KNFAH a NFAH 

0162 



KNCl « NCI 

0163 



KNP - NP 

0164 



KNHIS « NHIS 

0165 



KNV ■ NV 

0166 



GO 70 11 

0167 


806 

WR1TE(6»80321 

0168 



STOP 

0169 


100 

FORMAT (3I5tFL2 2t38X 1 5 12 i2X» 12 f 11 1 

0170 


101 

format n2tlX*A4(3F6 3t3F5 3» 3Xt2F6t3t7l3rlX|3IU 

0171 


102 

FORNATCI2tlX*A4t2FlO OtlOXfZFlO 01 

0172 


103 

FORMAT {2X,2l3t4FlQ O.kQXtZFlO 01 

0173 


104 

FORMAT UHII 

0174 


105 

FORMAT (I2.A6.F4.2f6X,FT OtF& 0«F7 O.I2t20I2l 

0175 


107 

FORMAT I2X»3PiO 2.25X,F10 2,4|2,ZX,I31 

0176 


213 

FORMAT (16H STAGE COST 0aTA/6H0TITLE,3U6M RECURRING 


lEVELOPHENT SUSTAINING AVAILABLE SHARED COST GROUPS 


15/13/01 


LC>i6BH D 
BATCH FACT/ 
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FORTRAN IV 6 LEVEL 1. HOD A MAIN 


DATE - T0113 15/13/01 


0177 

0178 

0179 

0180 

0181 

0182 


0183 

0184 

0185 
0188 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 


0195 

0198 

0197 


0198 

0199 

0200 
0201 


2 9Xtl?H{ErR OR UTR1« 

3 SXt!OH(ETR O^^LV W8XtIOH<UTR ONLY! «29Xt7HPRtm TO//) 

214 FOrKAT C1HO///17HOSHAREO COST 0ATA/37K0N0 TITLE OEVELOPHENT S 
lUSTAINING//) 

215 FORMAT ( 1hO///22H01MTEGRATION COST 0ATA/59M010WER UPPER RECUR 

IRINC LC DEVGLOPHEMT SUSTAlNlNG/lAH GROVP GROUP//) / 

21fr FORMAT (2XrA4t4X|A4«Fll 2«F7.3t2F13 2) 

217 FORMAT UAHlHlSSlON H006L/47H0 HISSIOM VELOCITY PAYLOAD 
IPRIORTTY ,20X 15MLAUNCH SCHEDULE/50Xt 2014/lH /) 

219 FORMAT UXi !2 1 lXrA6»2Xf 2F10 Of FIO 2* 4Xi 1 2» 2Xt 2014) 

2001 format CnulNUHBER OF STA6ES»8Xtl5/l9K0WMB€R OF VEKICLEStGXt 15/ 

1 19K0KUH8ER OF FAHlL 1 ES i6Xt I5/28H0NUHBER OF INTEGRATIOK CaSTStl2/ 
I X 2AH0MUHBSR OF PAD C0HPLEXESt4X« 12/ 

2 19K0^;UH8gR OP HiSSlOMSfGXf I5/16H0NUK8ER OF YEARSt9XtI5/ 

3 17H0LAUNCH BASE YEAR* BX* IS/20KOTQTAL COST ESTlHATEtF12 2/14H0QPT 
4IQM MUHBERt IIX.TS) 

ZlAl FORMAT llX(12T2X|A4t2Xi2F13 2> 

4020 F0RMATI2013) 

4021 format r36HlASSIG>IHENT FOR CALCULATION OF GUESS//) 

4022 FORMATdH « A6i5Xt4 1 A4t IX) } 

5000 F0RHATr2Xil2«6P6 0i2X>I2*«F4 0) 

5002 F0RHAT{eXf2I3«3F6 Ot213t3Ffr 0»213»3F6 0) 

5003 FORMAT I 27X,A4t IXfSHSTAGE » 17Xt3 (F9*2yP8*2 ) ) 

5004 FORMAT l2TX»A4,lXt6HSHAREDfl6XT3(F9 2fF8 2)) 

5005 FORMAT ( 2TXf ISHINTEGRATION OF fA4t5H AND fA4fBX«F8 2t2(9X»F8 2)1 
8001 FORMAT 

1 < IXf A4, lXf3(F9 2, FT 3)iP13 2. FlZ*2 t 2X f 1A« tXi 14» 2X«4I4» 19) 

8003 FORMAT <4Xt4FlQ 3) 

8004 FORMAT 1 3X» 19HRECURRING COST TVPStl2f22H FOR X LESS THAN OR >» 

1 F6*2fl4H» TOTAL COST -»F6.2. 19H*F0R X GREATER THAN»F6 2. 

2 14H, TOTAL COST «,F6 2»4H X +|F6 2) 

8005 FORHATn6MOREUSEAGLE STAGEi 4Xt20HUNlT PURCHASE PRICE>*F7 3) 

8032 FORMAT nH0///5Xt26HEN0 OF DATA - JOB COMPLETE) 

9003 FORHAT(1HO///14HOPAD COST DATA/12H0ND C0NPLEX«2X* 11HLAUNCHES/YR« 

1 37X»5HPAD 1,12X( 

t 2 5HPA0 2,12XtSHPAD 3/59Xi3tllHDEV SUSfrGX)//) 

9005 FORMAT (I4f2X«A4iF5 0) 

9006 FORMAT UX» 12 1 ZXf A4r5XtF6.2 1 
9021 FORMAT {4X|2F10«0»I4|F7 3,F6 0} 

END 


FORTRAN IV G LEVEL If MOD 4 MAIN 


DATE ■ 70113 15/13/01 


TOTAL MEMORY REQUIREMENTS 002004 BYTES 
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Fet-LEVEl. LINKAGE EDITOR DETIONS SPECIFIED LISTiNCALtHAP 

VARIABLE OPTIONS USED - SIZE-t 12B97«t2AST6 I DEFAULT OPTIONISI USED 

EKOOOO NAHE^HOXOSHKfR} 

EU046I tBCDH> 

EK046I CAPABL 
EKQA6) DECISK 
EU0461 AVAIL 
EU0461 STGNUH 
ENB461 CKQOZ 
EU0461 OUTPUT 
EH0461 ALOG 


MODULE HAP 


CONTROL SECTION ENTRY 

NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NANE LOCATION 


HAIM 

00 

2004 

NONOIH 

2008 

1C 

VEHCLE 

20F8 

4B0 

HISSON 

25AB 

A90 

STAGE 

3038 

6E4 

DSCOST 

3720 

1838 

IMT 

4F58 

3C0 

PADS 

5310 

378C 

VEHREC 

SA&8 

3CF4 

REUSBL 

C7A0 

190 

CAPHAT 

C930 

FA4 

FAMILY 

0808 

200 

INTREC 

08A8 

140 

STGREC 

(^EO 

670 

HI5RE0 

E358 

640 

VEHIN 

E99S 

1F8 

CHOOZE 

EB90 

84 

SAVEOP 

EC18 

194 

SCRACK 

E080 

53FC 


ENTRY ADDRESS 00 

TOTAL LENGTH L41B0 

**«KOX02HN NOW REPLACED IN DATA SET 


1171 OS/360 FORTRAN H 


DATE 70 113/15 14.20 


ISH 


ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 


ISN 


ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

!SN 

ISN 

ISN 

ISN 

ISN 

tSN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 


COMPILER OPTIONS - NAME- HAIN»OPT«02iLINECNT«44,SOURCETBCO*NDLISTtNDOECK»LOAD»HOHAP,HOEDIT| 10,N0XREF 
0002 SUBROUTINE HATCH(HYFLAG1 

C MATCH DECISION COSTS WITH VEHICLE 

C 


0003 
000 4 

0005 

0006 

0007 

0008 
0009 


0010 


IHTEGER*2 NONR£C»LYO,VEH,NPAO»NPFAH*NPSTGtNPINTL»NPIMTU 
COHHON/NflNOIH/ NUHDi NSTG»HYRS »NFAN fNCltNPi NY 
COMHQN/VEHCLE/ NpADI2»60>iVEH(4»601*Kyp(2«601 

CDHHON/STAGE/ LSA 1401 tSNR (411 tSTG(40| i$USf49I tKYS<401»5USLS(40i21 p 
I NFS(40,41 

COMHON/OSCOST/ DS I LOO 1 1 SUST ( 1001 pNYOl 100) tLYDI 1001 «NONRiC( I20t 20 1 
COMKQN/tNT/ NFML(40) tNFMU{40 1 pOlNT (40 ) pSlNTlAOl p SINTLS(40p 2) 
COMHON/PAOS/ PFAH0(30t5f31»PFAHS(30,5t31»NPFAM(30pS)» 

1 PSTGD|30tl0p3}»PSTG5C30tl0i3IpNPSTG(30rl01pPlNT$<30p5*3)t 

2 NP[NTL(30>51pNPlNTUr3Dp51.PAD(301 

COHKOM/SCRACK/ NAT( 100) t LYF ( 30),HYP(30l »HAF (30,3 1 * 

1 HAICI40p31,HAPF<3Op5),HAPS(30ptOl,KAPn30p51*0UHHYl4a45)i 

2 HA$(40p31p VK(2,120) 


C 


DOLL 

0012 

0013 

0014 

0015 

0016 

0017 

0018 
0019 
0021 

0023 

0024 

0025 

0026 
0027 
0029 

0031 

0032 

0033 
0035 

0037 

0038 

0039 
0041 
0043 


00 66 1 a 1,NV 
JX •» I 
KX ■ 1 

00 64 J B 1,20 
NONREC(lCNVpJ) > 0 
^ 64 NONRECUtJl » 0 
DO 65 MSa lp4 
* K « VEH(HS,n 

1F(K EO 0) GO TO 66 
IP IMASIKpl) EO 01 GD TO 9050 
NQNRECdfJXl » HAS(Kttl 
NDNRECnCNVpKXl > HAS(K,1) 

JX > JX e 1 
“ KX a XX t 1 

IFfJX GT 20 OR KX GT 201 GO TO 93 

9050 IF (HAS(Rp 21 EQ 01 GO TO 9051 
NONRECIltJXl a HAS(K,2) 

JX • JX e 1 

IF (JX GT 201 GO TO 9? 

9051 IF (KAS(Kt31*EQ*OI GO TO 9952 
NONRECI I&NVfKXl a HASlKtSl 

KX a KX S 1 

IF (KX GT 201 GO TO 93 

9052 IF (NPADdpIl.GO 01 60 TO 9053 
^ N1 a NPAOdpI) 


'D-20 

CL* n>'% 
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1SH 0044 DO 9054 g - tylO 

ISN 0045 IF <NPSTG(N1iJ» NE K) GO TO 9054 

ISM 0047 IF (K4PS<N1)J) EO Ol GO TO 9053 

ISN 0049 N0MR6Cn»JX) ■ HAFSmi,JJ 

ISM 0050 JX « JX t I 

ISN 0051 IF (JX CT 20) fiO TO 93 

ISN 00S3 r.n to 9053 

SSN 0054 9054 COMTINUE 

ISK 0055 9053 IF INP4D<2.n EO O) GO In 63 

ISN 0057 N1 ■ NPAD12>I) 

ISN 0050 DO 9055 J « 1,10 

ISM 0059 » IF INPSTG(Nl,J) «6,K) GO TO 9055 

ISN 006L IF (HAPSIMI, J)«EQ 01 GO TO S3 

ISM 0063 NOMAECi ISNV,KX> > HAPS(ni,J) 

ISK 0064 XX B KX C 1 

ISK 006$ , IF <KX GT 20) CO TO 93 

ISK 0067 CO TO 63 

ISN 0066 90SS CONTINUE 

C »«* PICK UP SHARED COSTS *»* 

ISK 0069 63 00 A65 KVsl^A 

ISK 0070 KZbNFSIK,KY) 

ISK 0071 iFfKZ EO 0] GO TO 6B5 

ISN 0073 IF {MAFIKZtU EO 0) GO TO 9056 

ISN 0075 NtWRECMiJX) » HftFlKZtll 

ISN 0076 HONRECaSNV.KX) « KAF(K2,l) 

ISN 0077 JX»JX61 

ISN 0D7B KX s KX C 1 

ISK 0079 1F[JX»GT*20,0R KK GT 201 GO TO 93 

ISN 0001 9056 IP IHAFIKZ,21 EQ.Q) GO TU 9057 

ISN 0063 KONRECUfJX) ■ HAFIKI,2) 

ISN 0004 OX a .JX C 1 

ISN 0085 IF (JX GT 20) 60 TO 93 

ISN 0007 9057 IF (HAF(K2,3]*£0.0> GO TO 9050 

ISN 0089 NDNRECnCNVtKX) * HAP(K2t3) 

ISN 0090 KX > XX £ 1 

ISN 0091 IF (KX.GT 20) GO TO 93 

)SN 0093 9058 IF (NPAOn,!) EO 0) CO TO 9059 

ISN 0095 N1 B KPADdi I) 

ISN 0096 DO 9060 J b 1,5 

ISN 0097 IP |NPPAMIK1,J) NE*KZ) GO TO 9060 

ISN 0099 •* IF (MAPF(H1,J) EO 0) GO TO 9059 

ISN 0101 MONRECUfJX) ■ HAPF(N1,J) 


ISN 0102 
ISN 0103 
ISN 0105 
ISN 0106 
ISN 0107 
1 $M 0109 

ISN Olio 
ISK OUl 
ISN 0113 
ISK 0115 
ISN 0116 
ISN 0117 
ISN 0U9 
ISK 0120 
ISN 0121 

ISN 0122 
ISN 0124 
ISN 0126 
ISN 0127 
ISN 0129 
ISK 0130 
ISN 0131 
ISN 0133 
ISN 0134 
ISK 0136 
ISN 0137 
ISK 0136 
ISN 0139 
ISN 0141 
ISN 0142 
ISN 0143 
ISN 0144 
ISN 014S 
ISN 014T 
ISN 0149 
ISN 0150 
tSN 0151 
ISK 0153 
ISN 0155 
ISN 0156 
ISN 0157 


•JX B JX C I 
IF fJX CT 20) GO TO 93 
60 TO 9059 
] CUNTINOE 

) IF (NpAOlZ,!) EO 0) GO TO 885 
K1 ■ NPA0I2,I) 

DO 9061 J ■ 1*5 

IF (KpFaM(N1,JI ^E go to 9061 
IF (HapFINUj) EO 01 GO TO S85 
KfVjREcncNVfKX) > KAPFCKLfJ) 

KX B KX 2 1 

IF (KX CT 20) GO TO 93 
GO TO 865 
L CONTINUE 
> CONTINUE 

•*« PICK Up INTEGR4TIDN COSTS 
IPIHS EO 4) GD TO 65 
lF(VSH(KSei,]) SO 0) CO TO 65 

Xl-VEH(HStl)l) 

IFtNCl EO 0) GO TO 9062 
DO 09 J-ltKCI 
00 667 KYe1,4 

IFINFHL(J) N€ NFS(KtKY)) GO TO 607 
DO 866 XZ«l,4 

IFCNFHUU) Eo.NFSfKlrXin GO TO 089 
) CQHTINIIE 
r CONTINUE 
GD TO 69 

) IF (KAICIJfl) EO 0) GO TO 9663 
NONRECHtJX) > NAICUtU 
KONREC(UNV,XX) « HAIC(J,1) 

JX B JX c 1 
KX = KX C 1 

1F(JX GT 20 OR KX GT ZOI GO TO 90 
I IF iKAfC(J,Z1»E<} 0) GD TO 9064 
KOKRECn,.JX) - HAIClJtZ) 

JX - JX C I 

IF (JX GT«20) GO TO 93 
r IF (KA(C(J,3i>E0.0) CD TO 69 
Kn»ft5cnSNV,KK) » HAlCtJ,31 
XX B KX c I 
IF IKX GT 2Q) CO TO 93 
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1$N 0LS9 

Q160 
ISN 0161 
15N 0163 
ISN 0l6't 
ISN 0165 
ISN 9167 
ISN 9160 
ISN 0170 
ISN 9171 
ISN 0173 
ISN 0176 
ISN 0175 
ISN 0177 
ISN 0179 
ISN OlOO 
ISN 0161 
ISN 0183 
ISN 0184 
ISN 0165 
ISH 0166 
ISN OtdO 
ISN 0189 
tSN 0190 
ISN 9191 
ISN 0192 
ISN 0193 
ISN 0194 
ISN 0195 
ISN 0196 
ISN 0197 
ISN 0196 


69 C0U1INUE 
9062 00 q06? 6 " lr2 

If INPAD(HTn.E0 01 GO TO 9065 
Nl B NPAO(M,n 

DO 9066 .J a 1 14 

If (NfSfKiJl ED 0) CO TO 9065 

DO 9067 KY » 1,5 

If INPINTLlNltKYl HE NFSIKiJM GO TO 906> 

DO 9068 KZ - 1,4 

IF tNPINTUINl.KYl EO NfSlKltKZl) CO TO 9069 

9065 CONTINUE 
GO 70 9067 

9069 IF <hflPnN!,m*EO 0} GO TO 9067 
If IN EO 2) GO TO 9070 
N0Nft6ClI,JX) • «API(N1,KY) 

JX = JX « I 

If <JX.G7»20} CO TO 93 
CO TO 9067 

9070 NONPEClICNVyKXl a HAPltNlvKY) 

If tKX GT 20) GO TO 93 
9067 CONTINUE 

9066 CONTINUE 
9065 CONTINUE 

65 CONTINUEi 

66 CONTINUE 
RETURN 

93 WimE(6,220l I 

hyfl&c « 1 

RETURN 

220 FORHAT(45HDEXCEEOEO 20 NON-RECURRING COSTS FOR VEHICLE, I4> 
ENO 


gNO OF COMPILATION ••••#* 


FBO-LEVCL linkage CDITOR options specified LIST,XREP,nAP,NCAL 

VARIABLE OPTIONS USEO ' SlZE-(126976,2A576) DEFAULT OPTIONISl USED 

lEVOOOO NAME HOX02HT(Rl 

1ER046X leCOHa 


CROSS REFERENCE TABLE 


CONTROL SECTION SNTRY 

NAHE ORIGIN LENGTH NAME LOCATION NAME iOCAtlON K&HE LOCATION NAME 

HATCH 00 084 

NONDIH OB 8 1C 

VEHCLE D08 480 

STAGE 12S8 6E4 

OSCOSr 1970 1636 

INT 31A6 3C0 

PADS 3568 376C 

SCRACN 6CFB 53FC 


LOCATION refers 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

128 

MONDIH 

NONOm 

12C 

VEHCLE 

VEKCLE 

130 

STAGE 

STAGE 

134 

DSCOST 

DSCOST 

138 

INT 

IHT 

13C 

PADS 

PADS 

140 

PADS 

PADS 

144 

PADS 

PADS 

198 

SCRACH 

SCRACK 

14C 

SCRACH 

SCRACH 

150 

mcoM- 

^UNRESOLVED 




ENTRY ADDRESS 

00 





TOTAL length 

C0F6 





««»*HDX02HT NOM 

REPLACED IN 

DATA SET 





OlACMOSTli: message oircctory 


1EH0461 HARHINC - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL HAS SPECIFIED 
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<■ L / 


iH'U 


I 


5^ UUMUJ* 1 


LOCATION 



t 


t 


t 


^ *1 


4 !i i 



U7) US/abO hURTRAN H DATE 70 113/J5 15 17 

COKPIIER OPTIONS - NAME* HAlNfOPT-OZi UNECNT»AA| SaURCE»8CO#NOLlST»NOOECK»l.OADrNOMAP,HOEOIT« JO.KOXREF 
ISN 0002 SUBROUTINE MATE 

ISN 0003 INTEGER*2 VEH»MPAO 

ISN 0004 REAL ISPt ISPA, LENT 

I SN 0005 COKHON/MONO IH/ NUMOtMSTG,HYRS rNFAH^NCI ,NP |HV 

ISN OOOA COHHON/VEMCL6/ NPA0(2,60I , VEH<4»60 ) tNYP(2»00 > 

ISM 0007 COHHON/MISREO/ 1VEHA( 50 | »VLR(50I >HPR< 50) tNPLS I 50| fMR( 501 tKRRISO) » 

1 RPLHI50l,MTRIPI50> 

ISN 0008 COKHWJ/VEHIN/ IV»KNV» lS»NHlS»NOPTtKOOE UO J ,R00EP f30 J t IPtRPLOISO) 

ISN 0009 COHHON/fiATCH/ NRP160)* 

1 Bll601»B2<60)i83(60>»B4r60) rKOOEV(60) tNyS(60)tMRV[60) 

ISN 0010 COHMON/SCRACH/ LZtSO ) »M2 (SOJ ,VKW (2t60) ,NEHIA ,601 .NPAXI 2i 60) , 

^ 1 NST{40),THRT|<»01*DIAK(40] »TSL(A0) , LENT [40) «NTPUI40),HTIN[40}, 

2 lSP[40),HlHT[3,60)tRX,NX,MGHT[40),NF[4)tNT(4),lSPA[4),TMUT[4), 

3 PRT<60), 0UM.Hri3937J,VK[2,l20> 

C 

ISN 0011 DATA P|,N,VREFrCLI/3 1416, 2, 25573*, 28.5/ 

ISN 0012 NVl * NV & 1 

1SH 0013 DO 34 I > NVl, 60 

ISN 0014 VEHtl,I)cO 

ISN 0015 DO 34 J-l,3 

ISN 0016 V£HUC1,I)80 

ISN 0017 34 HIMTU,1)*0.0 

ISN 0018 NX « 0 

ISN 0019 IHAX»0 

ISN 0020 ^ JHAX-0 

ISN 0021 KHAX-0 

ISN 0022 LHAX«0 

ISN 0023 DO 35 l*ltN5TG 

ISN 0024 IFINSTU) EQ 0) 60 TO 36 

ISN 0026 33 MCHT<n»VTFUtntHTlNm 

ISN 0027 iPIHSTin EQ L) IHAX«1 

ISN 0029 IFtNSTm.EO 21 JHAX*I 

ISN 0031 tFINSTtn.EO.3) KHAX*1 

ISN 0033 IFtNSTin E0.4) LHAX«I 

ISN 0035 35 CONTINUE 

ISN 0036 36 IFItHAX EO 0> GO TO 600 

ISN 0038 IFIJMAX EO 0) JHAXsINAX 

ISN 0040 IFIKHAX EO 0) KHAXsJMAX 

ISN 0042 IFUHAX.EQ 0) LMAX»KHAX 

ISN 0044 imBlHAXU 


ISN 0045 JK1-JHAX61 

ISN 0046 00 500 l>l,IHAX 


ISN 0047 NFIDsUTFUn) 

ISN 0048 NT[l)BUTlNin 

ISH 0049 ISPAfllcISPlI) 

ISN 0050 THUT< IJbTHRTU) 

ISN 0051 DO 400 J'lHltRKAX 

ISN 0052 H!NX*PI*[DIAKII>CD1AM( JU*(SORT< (LENTU1 >««26 [ (01 AH( n-OtAH(J ))* 

1 0.5)**2))«5.0»0,5 

ISN 0053 IF (THRT(I) LT.l 2* (WGHT ( I) CHGHT( J ) SHINX)) 60 TO 400 

ISN 0055 IF ITHRT(I) CT 3 5*(UCHT( I) CWGHT ( J)CN INX) ) GO 70 400 

ISN 00S7 IP [DIAK(J) GT I 2«DIAK(I]| GO TO 400 

ISH 0059 IF (OIAHin.GT 3 5«0IAKU>| GO TO 400 

ISN 0061 UF[2)sWTFU(J) 

ISH 0062 UT(2)*WTIN(J) 

ISN 0063 ISPA<2)#ISP[J) 

ISN 0064 THUT(2)*THRT1J) 

ISN 0065 H*0 

ISN 0066 PR»0 

ISN 00 67 V0ES«0 

ISN 0068 CALL PERF tN,M,VDES,UPL, VREFtPR,VIF,HT, iSPA,TKUT ,TSl M I tOIAHU ), 

1 CLtflERR) 

ISN 0069 IF (lERR NE 0) GO TO 60 

ISN 0071 NX « NX G 1 

ISN 0072 RX 3 NV C NX 

ISN 0073 NJ>J 

ISN 0074 VEH(1,KX)>I 

ISN 0075 VEfU7,KX)«J 

ISN 0076 >IINT(l«KX)*WINX 

ISN 0077 PRTtKX)«MPL 

ISN 0078 CALL HISNAT 

ISN 0079 IFIKX EO 1001 GO TO 60 

ISN 0081 IF(KX re 601 GO TO 600 

ISN 0083 60 00 300 K*!H1,LHAX 

ISN 0084 H1NY«PI*(D1AHI3)LDIAH IK))* (SORT! (LENT (K)l**2C((0tAHrJl-DIAH(KM 

1 *0 5)4*2))*5 0*0 5 

ISN 0085 IF ITHRT(J) LT 0 37*(HGHT(JlCHGHT(K)CHTNV)> GO TO 300 

ISN 0087 IF (THRTIJI.GT 1 25*tHGNT( J)CWGHT(K)rH|NVn GO TO 300 

ISN 0089 IF (THRT(l) LT«1 2* INGHT (I ICNGHT UIGWGHTIKUH INXGN INY M 60 TO 300 

ISN 0091 IF (THRT(I) GT 3«0*(NGHT ( I )CNGHT ( JiGWGKT IKI fiUINX&UtKY ) ) GO TO 300 

ISN 0093 IF (OIAH(K) GT 1 2*DIAH[jn GO TO 300 

ISN 0095 IF (OIAHU) GT. 3.5*0 lAH(K) ) GO TO 300 
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ISM 0097 
ISM 0098 
ISN 0099 

ISII oico 

ISM 0101 
ISM 0102 
ISM 0103 
ISM 0104 

ISM OIOS 
ISM 0107 
ISN OlOa 
ISN 0109 
ISN Olio 
ISM om 
ISN 0U2 
isri 0U3 
ISM 0U4 

ISK OUS 

ISM 0116 

ISM one 
ISM 0120 
ISM 0122 
ISN 0123 
ISM 0125 

ISN 0126 
ISN 0128 
ISN 0130 
ISN 0132 
ISN 0134 

ISN 0136 

ISN 0130 
ISN 0140 
ISN 0142 
ISN 0143 
ISN 0144 
ISK 0145 


ISN 0146 
ISN 0147 
ISN 0146 
ISM 0149 

ISM 0150 
ISN 0152 
ISM 0143 
ISM 0154 
ISN 0155 
ISN 0156 
ISN 0157 
ISN 0150 
ISN 0159 
ISN 0160 
ISN 0161 

ISN 0162 

tSN 0163 
ISN 0165 
ISM 0167 
ISN 0168 
ISN 01C>9 
ISN 0170 
ISM 0171 
ISN 0172 
ISM 0173 
ISN 0174 
ISN 0175 
ISM 0176 
ISM 0177 


NP|3)«NTF0(KI 

WT(3I=HT1N<KJ 

ISPA(3)alSP(K} 

TM0Tf3IsTH(lT(Kt 

M«1 

Pft=0 

VOES-0 

CALU PERFlM,H»VDE5tWPLtVREPfPRrMFiHT( ISPAiTKUTfTSUnfDlAHmf 
1 CLltlERR) 

IF HERR NE.01 00 TO 70 
NX « MX C I 
KX NV e MX 
VEHUiKX)»I 
VEHl2tXXI«J 
VEH(3*KX}-K 
WINTI1»XXI>W1HX 
HINTI2»KXl-HlNr 
PRTIKX)»MPL 


IFIKX £0 100} GO TO 69 
IFIKX CE 601 CO TO 600 

69 1F(K CT KHAX) GO TO 30D 

70 00 200 t«JMl,LM4X 

lF(t EQ NJ) 60 10 200 

WtN2»Pt«{0UHlKleDlANU)}«(SQRT(<LENT(L} l*«2CnOIAHlXI-OIAH(l.}} 

1 «0 S}**2})*5 0«Q 5 

IFITHRTIKI LT.O 30*(WGKT IR} MCHTI L I SH IM2}) GO TO 200 
lF(tHRTIR)«CT«K25*<H6HT(R)SUCHTlUSMINZ}> GO TO 200 
IFITHRTUI LT 0»32*<MGKT(J>WCHnKlfiHGKTa)CMtNY£MlNZM CO TO 200 
IF(TNRTU)«GT 1 50*IH6HTU)CMCHTrKISMGKT(L)CW[NY£M!NZ(> CO TO 200 
IFrTMRTU) l.T*i 20*t«GKTCmHGMTIJItM6KnK|6MGHT{U£H|NXCHINV6M|N2 
1 n CO TO 200 

IFtTHRTfl) CT 3 00*<VGHTmCMCHTtJUM6HT|KieMCKTa}SMINXCMINY&M|Ml 
1 1) CO TO 200 

IFtOlAHIU GT 1.2*DlAH|xn GO TO 200 
IFiOIAMtR} CT 4 0*0!AKa}) GO TO ZOO 
HF(4 )bHTFU(L} 

«Tt4|=HT INILI 
lSPAf4)BlSP(t] 

TH0Tt4)*iTHRT{LI 


Hs2 

PRsO 

VOES^O 

CAa PERHN,H,VOeS*«Pl.fVREFiPR,>fFtMTtISPAfTHUT.TSLmTOIAHm* 
1 CtItlERR) 

IFEIERR ME 0) GO TO 200 

MX NX C I 

XX » NV S NX 

vEfmtKx)»i 

VEHI2«KX>»J 

VENl3fKX)«K 

VEHI4»XX}sL 

UINTa»KX)>UIMX 

HINTI2,KX)«HIMY 

HtNTOyKXl-MlNZ 

PRKKXUWPl 

CALL Ml SHAT 

IFIKX E0*100t GO TO 200 
IFIKX TE 60} GO TO 600 
200 CONTINUE 
300 CONTINUE 
400 CONTINUE 
500 CONTINUE ^ 

600 NV • NV 6 NIT 

t • NV - MX t I 
DO 601 J - LtNV 
VHH(1»J} a VM(]»J} 

601 VHWl2tJ} a VN(2 tJ) 

RETURN 

EK) 


»»«««* end of COHPRATIGH 



Faa*LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LISTvXREf tHAPtNCAl 

variable options used - SlZE-a2&976fZ^S76l DEFAULT OPTIONISI USED 

lENOOOO NAME K0X02NAIRI 

IEH0461 PERF 
1EW0A61 SORT 
IEH0461 HISHAT 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 

NAHE ORIGIN length NAME LOCATION HAHE LOCATION NAHE LOCATION NAME LOCATION 

HATE 00 642 

NONON) 648 1C 

VEHCLE 668 460 

KI5REQ 1018 640 

VEHlN 1658 1F8 

BATCH 1850 780 

SCRACH IFDO 53FC 


LOCATION REFERS TO SYMBOL IN CONTROL SECTION LOCATION REFERS TO SYMBOL IN CONTROL SECTION 


176 

NONOIH 

NONDIH 

17C 

VEHCLE 

VEHCLE 

IBO 

HISREQ 

HISREQ 

1B4 

VEHIN 

VEHIN 

188 

8ATCH 

BATCH 

IBC 

SCRACH 

SCRACH 

190 

SCRACH 

SCRACH 

194 

SCRACH 

SCRACH 

19B 

PERP 

6UNR6S0LVE0 

19C 

SORT 

AUNRESOLVEO 

lAO 

HISHAT 

^UNRESOLVED 

90 

SCRACH 

SCRACH 

94 

SCRACH 

SCRACH 

98 

SCRACH 

SCRACH 

9C 

SCRACH 

SCRACH 




ENTRY ADDRESS 

00 





TOTAL LENGTH 

T30O 






**«*H0XO2HA NON REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


1EH046I WARNING » SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCEi NCAL HAS SPECIFIED 

4 


117) OS/360 FORTRAN H DATE 70 113/15 26 34 

COMPILER OPTIONS - NAME* MAlNt0PT«02«L 1NECNT«44 .SQURCEtSCOtNOLIST (NOOECKtLOADf NOHAPrNOEDIt* iDtNOXREF 
tSK 0002 SUBkOUTINE M1$MAT 

ISN 0003 REAL LENTtlSPi ISPA 

ISN 0004 INTEGER*2 VEH»NPAO 

ISN 0005 COHHON/NONOIH/ NUHD rNSTGfHYRStNFAKf NC ItNPfNV 

ISN 0006 COHMON/VEHCLE/ NPAD12,60)fVEHr4t60)tNYP(2t60} 

ISN OQOT CQHHI^/HISREO/ IVEHAI 50 ) i VLR150) «WPR1 50 ) vNPLS 1 50) tHRlSO) TNRR<50>t 

I RPLH150)»MTRIP150) 

ISN 0008 COHHDN/VEHIN/ IV*XNV« 15fNHIS»N0PT«X00E(4D) tKODEP 130 ) i I P»RPLO(50 ) 

ISN 0009 C0HH0N/6ATCH/ NRP<60)» 

1 Bll60)tB2(6O)»B3{60)t64(6O>»K0DEV(60)»NVS160>.HRV(6O) 

ISN OOlO COHMON/SCRACH/ LZ<50),MZ150)tVHW12t60) *NEH(4t60)fNPAX12»60)» 

1 NSI (AD),THRT140) rDIAH(401,T5L140)tLENT(40) (WTFUI40 ) tHT INI 40) » 

2 ISP140)tHINT(3t60) fKXtNXfWGHT 140) tWF 14) tWTl4) t ISPA 14) f THUT14 )| 

3 PRT(60)t DUKHY13937}tVMlZ»12Q) 

ISN OOn DATA VREFtCLl/25573 t26 5/ 

C 

ISN 0012 CFlaO« 

ISN 0013 RNS « I 

ISN 0014 IFINV.EO O) GO TO 101 

ISN 0016 DO 100 HJ«1»NV 

!$N 0017 IF1VEH11.KX)«NE VEKlliHJ)} GO TO 100 

ISN 0019 1F1VEH|2,KX) NE VENlZfKJll GO TO 100 

ISN 0021 ^ IF1VEH(3»KX) NE*VEH( 3vHJ ) ) GO TO 20 

ISN 0023 IF1VEH|4»KX) NE 4 VEHI 4 iHJ ) ) GO TO 30 

ISN 0025 t KX > 100 

ISN 0026 NX > NX - 1 

ISN 0027 RETURN 

ISN 0028 20 lFlVEH13fHJ) NE 0) GO TO 100 

ISN 0030 IFIXNS EO 3) GO TO 100 

ISN 0032 CFl > EXPIBIIHJ)} 

ISN 0033 XNS « 2 1 

ISN 0034 GO TO 100 

ISN 0035 30 IF(VEH|4,HJ) NE«0) GO TO 100 , 

ISN 0037 CPI > EXPIBIIHJ)) 

ISN 0036 XNS • 3 

ISN 0039 100 CONTINUE 

ISN 0040 101 GO TO 1200«300t4001« XNS 

ISN 0041 200 H>0 

ISN 0042 N-2 

ISN 0043 1F1VEH(3»KX) NE 01 N>3 

ISN 0045 lPlVEH!9tXXI.NE O) N«9 

ISN 0047 1GQ TO 500 
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i ' = ''UU'MH'! 

I 


c\ 


i 


ISN 00<^8 
ISN 00^9 
ISN OOSO 
ISN 00S2 
ISN 00S3 
ISN OOS^ 
ISN 00S5 
ISN 00S6 
ISN O0S7 
ISN 0059 
ISN 0060 
ISN 0061 
ISN 0062 
ISN 0063 
ISN 0064 
ISN 0065 
ISN 0066 
ISN 0067 
ISN 0068 
ISN 0069 

ISN 0070 
ISN 0072 
ISN 0073 
ISN 0074 
ISN 0075 


300 N»2 
Hsl 

iFIVEHUtKX) NE 0> K«2 
GO TO 500 
400 N>3 
- Hal 

500 K1-VEH(I,KX) 

DO SOI |al»4 

IFIVEHdtKXI.EQ 01 GO TO SOZ 

KaVEH{I,KXI 

MFlllsHTflMKl 

WTinaWTlN(K) 

IS9AUI-t$PU) 

THUT(IJ»THRTIKI 

501 CONTINUE 

.502 DO 503 I»1»KHIS 
Lzm a 0 

PR=CF1 

voesaviRM) 

CALL PERF(N»H(VDEStHPL«VREF»PAtHFtWTtISPAfTKllTtTSLIiai«OIAH(KLl« 
1 CLUIERRl 

. IF<UPL*GT NPRm«AKO«IERR EQ 0> LZCll ■ 1 

'•503 CONTINUE 

CALL PACiaLZtVHUiKXIiNHIStll 

' RETURN 

END 


««•««* tNO OF compilation *•**♦* 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LISTtXREFtHAPtNCAL 
VARIABLE OPTIONS USED > SIZE»aZ6976»24576l 
NAME KOXOZHHtRl 


lENOOOO 

IEW0461 

IEW0461 

1EH046I 


PACK 

PEAF 

EXP 


DEFAULT OPTIONESI USED 


CROSS REFERENCE TABLE 


CONTROL SECTION 


NAME 

ORIGIN 

length 

HISHAT 

00 

4C6 

NONDIH 

4CB 

IC 

VEHCLE 

4E6 

400 

HtSREQ 

998 

640 

VEHIN 

PD8 

IF8 

BATCH 

1100 

780 

SCRACN 

1950 

53FC 


ENTRY 


KAHE LOCATION NAME LOCATION 


NAME LOCATION 


NAME 


LOCATION REFERS TO SYMBOL IN CONTROL SECTION LOCATION REFERS TO SYMBOL IN CONTROL SECTION 


140 

NDNDIN 

NONDIH 

144 

VEHCLE 

VEHCLE 

146 

HISREO 

HISREO 

14C 

VEHIN 

VEHIN 

150 

BATCH 

BATCH 

154 

SCRACH 

SCRACH 

158 

SCRACH 

SCRACH 

I5C 

SCRACH 

SCRACH 

160 

PACK 

SUNRESQLVED 

164 

PERF 

SUNRESOLVEO 

168 

EXP 

^unresolved 

A4 

SCRACH 

SCRACH 

A8 

SCRACH 

SCRACH 

AC 

SCRACH 

SCRACH 

BO 

SCRACH 

SCRACH 

C4 

SCRACH 

SCRACH 

CC 

VEHIN 

VEHIN 




ENTRY ADDRESS 

00 





TOTAL LENGTH 

6050 






**«*MOX02HN NON REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 




f 


LOCATION 
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(17) ^ OS/360 FORTRAN K 


DATE 70 113/L5*27«03 


COMPILER OPTIONS - NAME- HA IM,0PT-02»LlNECNT*4^,S0URCe »BCOtNOLlSTtM006CKtLOAOtNOMAP»NOeDlTT I0,N0XREF 


ISN 

0002 

C 

SUBROUTINE OUTPUT 

PRINT OUT BEST ASSIGNMENT *** 

ISN 

0003 ■ 


DOUBLE PRECISION HtSNAH'^ 

ISN 

0004 


1NTEGER*2 LETTtLYRiHlNtNPAOtVEHiNHULT 

ISN 

0005 


C0MM0N/SAVE0P/HISNAH(50>tIBY 

ISN 

0006 


COHHON/NONOIH/ NUHO»NSTGtHYRS tMFAH,NCl4NP,NV 

ISN 

0007 


COMMON/VEHCLE/ NPAOI2«60J »VEH(4|60>tNYP<2t60} 

ISN 

0008 


COHMON/KISSON/ LETT (250 1 *LYR(250 ) tLTR 150 ! tYRLH( 2S0) rHIN(250) *NH 

ISN 

0009 


COMKQN/STAGE/ LSA (40 ) * SNR(4I ) »STG (40) *SUS(40 } 4NYS(40I tSUSLS(40*2! * 
1 NFSI40*4) 

ISN 

0010 


COMMON/HISREO/ I VEMA<50) *VLR(50) iKPR(50) «NPLS (50) iKR [50)*NRR (50) t 
1 RPLH(50)*NTR1P(50) 

ISN 

OOll 


COMHON/VEHREC/ RECUR(60»Z0»2)*NHULT(60.50) *IFLAG 

ISN 

0012 


DATA ETR/lHE/ 

tSH 

0013 

' 

DATA WTR/IKH/ 

ISN 

0014 


write 16*4010) 

ISN 

0015 


DO 805 J-l*NH 

ISN 

0016 


L-LETT(J) 

ISN 

0017 


K>LYR(J) 

ISN 

0018 


Ka|899CIBYeK 

ISN 

0019 


IFtYRLHlJl.NS 0.0) GO TO 804 

ISN 

0021 


IFaETT(J'l) NE L) WRITE (6 » 206!HISKAH( L) fVLR (L ) iWPR( L! iRPLH( L) *H» 
1 YRLHIJ) 

ISN 

0023 


IFILETT(J-l) £0 U WRITEr6*2Q61) HtYRLH(J) 

ISN 

0025 


GO TO 805 

ISN 

0026 


804 II > MIN IJ) 

ISN 

0027 


IF (Il.LE KV) I > II 

ISN 

0029 


IF (II CT NV) I » ll - NV 

ISN 

0031 


lA-VEH(ltl) 

ISN 

0032 


ia«vEH72*n 

ISN 

0033 


IC-VEHOtI! 

ISN 

0034 


I0>VEH(4«1) 

15K 

0035 


X « NHULT(1,L) 

ISN 

0036 


X - YRLM(J)*X 

ISN 

0037 


IP m LE NV) TR ■ ETR 

ISN 

0039 


IP (Il.GT.NV) TR > MTR 

ISN 

0041 


IF(LETT(J-I) NE L) MR ITS (6r202)MISNAH (L > »-VLR 1 L ) tWPRtU «RPLK(L}*M* 
1 XtSTGI IA)»STG(IB)iSTG(lC)t$TG(]D)*TR 

ISN 

0043 


IF(LETT(J-1) EO Ll WRITE (6*2021 ) H*X» STG( lA ) «STO( IB) « 

1 STG(IC)*STGnD)*TR 


ISN 0045 
ISN 0046 
ISN 0047 

ISN 0040 

ISN 0049 
ISN 0030 
ISN 005) 


ISN 0052 


805 CONTINUE 
return 

202 FORMAT <lXtA6t6X»F10«0t4XtFI0.0t FIO 0 t 5Xt 16*4X4 F5.2,9X,5< A4. IX) 
1 )' 

206 FORMAT { IX*A6« 6XrF10 OtAXtFlO 0* F)0 0«5Xi I4*4XtF5 2t9Xt 

1 32KNO LAUNCH VEHICLE CAN ACCOMPLISH) 

2021 FORMAT (S2X«I444XtF5«2*9X*5(A4*lX}) 

2061 FORMAT I52X* I4,4X*F5*2t9X« 32HN0 LAUNCH VEHICLE CAN ACCOMPLISH) 
4010 FORHATr8KIKISS10N»4Xtl4HCHARACTERISTIC»4Xt7HPAYLOAOt4Xf6HRETURN* 

1 4X|6HLAUNCKt 

2 4Xf6HNUH8ERtl0X|7H0PTIKUH/7H 7lTLEi4Xtl6HVEL0CITY(FT/SEC} f4Xt 

3 5H{LBS)«4X«7HPAYlOAD«5X,4HYEAR.3XtllHQF LAUNCKESt4X4 

4 14HLAUNCH VEHICLE//! 

ENO 


END OF COMPILATION *«**«• 
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P«8<IEVEL LINKAGE EDITOR OPTIONS SPECIFIED LlSTtXREFiHAPiNCAL 

VARIAQLi OPTIONS USED - SIZE-I 126976»2457fr) DEFAULT OPTION($» USED 

UUOOOD NAME KOXO?OP<R) 

[EUO«i6l UCON- 


CROSS REFERENCE TAOLE 


CONTROL SECTIONi ENTRY 

NAHE ORIGIN LENTTH NAME LOCATION NAHE LOCATION NAME LOCATION NAHE LOCATION 

OUTPUT 00 5E4 — 

SAVEOP SE8 19A 

NONOtK 730 1C 

VEHCLE 7A0 ABO 

KISSON C50 A90 

STAGE lAEO 6EA 

HtSREO lOCa 6A0 

VEKREC 2A08 3CFf 


LOCATION 

REFERS TO SYMBOL 

IN control SECTION 

LOCATION 

REFERS 70 SYMBOL 

IN CONTROL SECTION 

2SD 

SAVEOP 

SAVEOP 

25A 

NONOIH 

NOKOIH 

253 

VEHCLE 

VEHCLE 

25C 

MISSON 

MISSON 

260 

stage 

STAGE 

26A 

HISREO 

MISREO 

268 

VEKREC 

VEHREC 

26C 

VEKREC 

VEHREC 

270 

VEHREC 

VEKREC 

27A 

f&COH* 

tUNRESOLVEO 


entry address 00 
TOTAL LENGTH 6100 

**««H0X02DP NOW REPLACEO IN DATA SET 


DIAGNOSTIC message DIRECTORY 

IEU0A61 HAF 4B0L PRINTED IS AN UNRESOLVED EXTERNAL REFEREKCE» NCAL NAS SPECIFIED 


EXTERNAL SYMBOL DICTIONARY 


SYMBOL 

TYPE 

10 

AODR 

length 

LD ID 

15*27 A/23/70 

PACK 

SO 

01 

oooooo 

OOQOE8 



UNPACK 

LO 


000052 


01 


ITEM 

ID 


000096 


01 
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4 < 


* 


LOG OOJeCT CODE ABDRl A00R2 STMT SOURCE STATEMENT FO1FE069 4/23/70 


1 * SUdRQUTINE PACK f L« H, 1, N J 




3 • 


THIS ROUTINE 

PACKS 1 WOROS IN TKE L ARRAY TO THE 



4 » 


ARRAY H DATA ITEMS L ARE TRUNCATED ON THE LEFT 



5 • 


AKO ONLV THE 

H LDW ORDER BITS ARE RETAINED 



6 ♦ 


Packed data 

IN H IS LEFT JUSTIFIED WITH 32/N ITEMS 



7 • 


PER hord« 


nooooo 


0 PACX 

CSECT 



OOOOQO 


10 

USING 

*»15 

USE REG 15 FOR BASE 

000000 9027 Dole 

QOOIC 

11 

STH 

2r7«28Cl3) 

SAVE REGS 

000004 9023 lOOO 

00000 

12 

LH 

2r5»QIU 

LOAD ADDRESSES OF ARGUMENTS 

000008 3844 0000 

00000 

13 

L 

4t0(41 

1 TO R6C 4 - HO OF ITEMS TO BE PACK! 

OOOOOC 38T5 0000 

00000 

14 

L 

TtOlS) 

N TO REG 7 - NO OF BITS/ITEH 

000010 4270 F029 

00029 

15 

STC 

7»SHlPT+3 

MODIFY SHIFT INST WITH NO OF BITS 

000014 1367 


16 

LCR 

6t7 

NO OF BITS SHIFT FOR DECREMENT 

>000016 0670 


17 

6CTR 

7,0 

N-I PUR COHPARAKO 

000018 IBll 


18 

SR 

Itl 

2ER0 REG 1 

OOOOIA 4150 0020 

00020 

19 WORD 

LA 

3,32 

LOAD A 32 TO REG 5 FOR COUNT 

OOOOIE 3013 0000 

00000 

20 

ST 

1,013) 

2ER0 storage AREA 

000022 5802 0000 

00000 

21 LOOP 

L 

0,0(2) 

LOAD DATA TO REG 0 

000026 eCOO 0000 

00000 

22 SHIFT 

SRDL 

0,0 

SHIFT DATA TO REG 1 

00002A IBOO 


23 

SR 

0,0 

TRUNCATE ON LEFT FOR MOD 2««N 

00002C 8000 3000 > 

00000 

24 

SLOL 

0,013) 

SHIFT BACK TO PROPER POSITION 

000030 5603 0000 

ooooo 

25 

0 

0t0(3) 

OR PACKED WORD TO REG 0 

000034 5003 0000 

00000 

26 

ST 

0,0(3) 

STORE BACK TO PACKED AREA 

000038 4122 0004 

00004 

27 

LA 

2,4(2) 

INCREMENT DATA ADDRESS 

00003C 4640 P046 

00046 

28 

BCT 

4,NEXT 

COUNT DOWN ON NO OF ITEMS 

000040 9827 OOlC 

OOQIC 

29 

IH 

2,7,28(13) 

RESTORE REGS 

000044 OTFS 


30 

BR 

14 

RETURN 

000046 8656 F022 

00022 

31 NEXT 

8XH 

5, 6, LOOP 

BRANCH BACK IF SPACE LEFT 

00004A 4133 0004 

00004 

32 

LA 

3,4(3) 

OTHERWISE INCREMENT STORAGE ADDRESS 

00004E 47F0 FOIA 

0001 A 

33 

8 

WORD 

AND CONTINUE 


COC OOJECT CODE ADDRl ADDR2 5THT SOURCE STATEMENT F0lfEB69 4/23/70 






35 * 

SUBROUTINE UNPACK 1 

[ L, H, 1, N ) 





36 • 

37 * 


THIS ROUTINE 

UNPACKS 1 WORDS GF DATA FROH THE H 





38 * 


ARRAY TO THE 

L ARRAY WORDS IN L ARE ZEROED AND N 





39 • 


BITS ARE PLACED RIGHT JUSTIFIED FROM TKE PACKED 





40 » 

41 • 


ARRAY 






42 

entry 

UNPACK 


000052 




43 

USING 

•♦15 

USE REG 15 FOR BASE 

000052 

9027 

OOlC 

OOOIC 

44 UNPACK 

STH 

2,7,28(13) 

SAVE REGS 

GO 0036 

9825 

1000 

OOOOO 

43 

LH 

2,3,011) 

LOAD ADDRESSES OF ARGUMENTS 

00003A 

5844 

0000 

ooooo 

46 

L 

4,014) 

I TO REG 4 - NO. OF ITEMS TO BE PACKED 

00003E 

5875 

0000 

ooooo 

47 

L 

7,0(5) 

N TO REG 7 > ND. OF 6lT5/[TEK 

000062 

4270 

F02S 

00077 

48 

STC 

7,LEFT«f3 

MODIFY SHIFT INST WITH NO OF BITS 

000066 

1367 



49 

LCR 

6,7 

NO OF BITS SHIFT FDR DECREMENT 

000068 

0670 



so 

BCTR 

7,0 

N-l FOR COMPARAND 

00006A 

4150 

0020 

00020 

51 DATA 

LA 

5,32 

load a 32 TO REG 5 FOR COUNT 

00006E 

5813 

0000 

OOOOO 

52 

L 

1,0(3} 

LOAD PACKED DATA TO ACG 1 

000072 

IGOO 



S3 BACK 

SR 

o»o 

ZERO rEG 0 

000074 

6000 

COOO 

ooooo 

54 left 

SLOL 

0,0 

SHIFT N BITS TO REG 0 

000078 

5002 

0000 

ooooo 

55 

ST 

0,0(2) 

STORE IN L 

OOOOTC 

4122 

0004 

00004 

56 

LA 

2,4(2) 

INCREMENT STORAGE ADDRESS 

OOQOBO 

4640 

F038 

OOOBA 

57 

8CT 

4, MORE 

COUNT OOHM ON NO. OP ITEMS 

000084 

9827 

(xuc 

oooic 

58 

LN 

2,7,28(13) 

RESTORE REGS 

000086 

07FE 



59 

BR 

14 

RETURN 

00008A 

8656 

F020 

OOOT2 

60 MORE 

8XH 

5,6tBACK 

BRANCH BACK IF MORE DATA 

00008E 

4133 

0004 

00004 

61 

LA 

3,4(3) 

OTHERWISE INCREMENT DATA ADDRESS 

000092 

47F0 

F018 

0OO6A 

62 

B 

DATA 

AND CONTINUE 
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I t_ ‘ I ^ Mill 


tX 






I 

t 

I 




LOC OBJECT CODE 


AODRI ADDR2 STHT 


SOURCE STATEMENT 


FOIFEB69 


tA * FUNCTION iTErt I H, I, N I 

65 • 





66 * 


THIS ROUTINE 

retrieves the 2 TH ITEM FROM THE PACKED 




67 * 


ARRAY H 





68 * 







69 

ENTRY 

ITEM 


000096 



TO 

USING 

•»15 


000096 9025 

DOLC 

OOOIC 

71 ITEM 

STH 

2f5»Z6ri3} 

SAVE REGS 

00009A 9824 

1000 

00000 

72 

LH 

2r4,0(I\ 

LOAD ADDRESSES OF ARCS TO REGS 2*3*4. 

00009E 5833 

00 oo 

ODOOO 

73 

L 

3t0l3l 

LOAD I TO REG 3 

OOOOA2 0630 



74 

BCTR 

3»0 

SUBTRACT 1 FOR I-l 

0000A4 4100 

0020 

00020 

75 

LA 

Ot32 

load a 32 TO REG 0 

OOOOAS BEOO 

0020 

00020 

76 

SRDA 

0»32 

SHIFT TO REG 1 

OOOOAC 5004 

0000 

00000 

77 

D 

0r0(4| 

DIVIDE BY N 

OOOOBO 5010 

F04E 

D0DE4 

78 

ST 

ItTEMP 

NO OF ITEHS/HORD 

00Q0B4 1803 



79 

LR 

0*3 

I-l TO REG 0 

OOOOB6 BEOO 

0020 

00020 

BO 

SROA 

0»32 

SHIFT TO REG 1 

OOOOBA 5000 

F04E 

000E4 

B1 

0 

OfTEHP 

DIVIDE I-l BY NO ITEKS/HORD 

OOQOBE 1851 



82 

LR 

5*1 

SAVE IN REG 5 TO INOEX ARRAY H 

OOQOCO 8B50 

0002 

00002 

63 

SLA 

5»2 

MULTIPLY BY 4 

0000C4 BEOO 

0020 

00020 

84 

SRDA 

0*32 

remainder to REG 1 

OOOOCS $C04 

oooo 

00000 

65 

h 

0*014) 

MULTIPLY Oy W 

OOOOCC 1831 



86 

LR 

3.1 

LOAD TO REG 3 TO INDEX SHIFT 

OOOOCE 5815 

2000 

00000 

B7 

L 

l*0(5«2t 

LOAD DATA FROM H ARRAY 

000002 S910 

3000 

00000 

88 

SLL - 

1*0<3) 

LEFT ADJUST PROPER ITEM 

000006 5844 

0000 

00000 

69 

L 

4i0(4> 

LOAD N TO REG 4 

OOOOOA 6000 

4000 

00000 

90 

SLDL 

OtO(4> 

SHIFT H BITS TO REG 0 

OOOOOE 9B25 

OOlC 

OOOIC 

91 

LH 

2t5t20n3> 

RESTORE REGS 

0000E2 07FE 



92 

BR 

14 

RETUIW 

OOOOE4 



93 T6Kf» 

OS 

F 


** 



94 

END 




CROSS-REFERENCE 


SYMBOL 

len 

VALUE 

DEFN 

REFI 

BACK 

00002 

000072 

0053 

0060 

DATA 

00004 

0000 6A 

0051 

0062 

ITEM 

O0QO4 

000096 0071 

0069 

LEFT 

00004 

000074 

0054 

0048 

LOOP 

00004 

000022 

0021 

0031 

MORE 

00004 

00008A 

0060 

0057 

NEXT 

00004 

000046 

0031 

0028 

PACK 

0000 1 

000000 

0009 


SHIFT 

00004 

000026 

0022 

0015 

TEMP 

00004 

OOOOE4 

0093 

0076 

UNPACK 

00004 

000052 

0044 

0042 

WORD 

00004 

OOOOIA 

0019 

0033 


NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
120 PRINTED LINES 


i M ' i 


4/a3/7D 


A«3/70 
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fea-LEVEl LINKAOE EOHOR OPTIONS SPECIFIEO LtSTtNCAL 

VAKIABLE OPTIONS USED - 5IZE«( 126976(24ST6 I DEPAUtT QPTIONCSI USED 

lEHQOOO NAME KOXOlPKlFO 

***«HDX01PK NOW REPIACED ]K DATA SET 


(ITI OS/360 FORTRAN H OAT6 TO 113/15 28 01 

COMPILER OPTIONS - NAHgs HAINiOPTs02tLINECNTB4A,S01JRCEtBCO,NOUTST,KGOECK>LQA[>«NOKAPtNOE01T, ID,NOXREF 
I ISN 0002 subroutine PADCST 

C DETERMINE IF MORE THAN ONE PAO NEEDED AT EACH COMPLEX 
I C » 

i ISN 0003 REAL NPERPD* NPUSED 

tSN OOOA 1N1EG£R«2 HATCK»JF, JL,NVEH«MOREiNSAVE, NPAOrVEH»LETTtLYRtKINt 

r L NPFAH,NPS7GtNPlHTL«NP{NTUtKDuTiNONREC»LyO*NKULT 

C storage for CHD02 AND PADCST 

I ISN 0005 COMMON/NONOIM/ NUHO.NSTGTHTRStNFAHtNCItNPiNV 

ISN 0006 CDHMON/VEHCLE/ NPAOI 2t60l t VEH(4t6D ) tNYP(2f 60) 

I tSN 0007 COHMON/STACE/ LSA (AO) rSNR |4 U iS7GK0) »SUS(60) »NYS (60) »SUSL$I60* 2) » 

> 1 NFS(AO»A) 

^ ISM 0008 COMHON/MISSON/ LET7{250),LYR(250)tL7R(50)>,YRLH(2501 ,HIN(250),NH 

ISN 0009 COMHON/PAOS/ PFAMDOO. St 3) » PFAHS(30» 5»3 1 tNPFAHOO ,5) » 

1 PSTGD(30«lOt3)»PSTGS(30tI0r3)tNPSTGt3O»t0lfPIN7S(3Or5»3>t 

2 NPINTL(30i5)«NPlNTU(30tS)i PAD 1301 

ISN 0010 COHHON/CHOOZE/ NEX7(GUESStNPERPD(30)tLP 

ISN 0011 COMHON/SAVEPT/HOREt 50) tKOUT { 100) * LOUTtEXTRAtSAVS (20) 

ISN 0012 C0MH0N/SAVEL8/ KX»KI»NXiNCaSTiKtKZ 

ISN 0013 CQHMON/DSCOST/ DS< 100) tSUSTi 1001 tNyOdOO) i LYO( 100) fHONRECUZOtZO) 

ISN 0016 COKHON/VEHREC/ RECUR(60t20» 2) iNHULT (60*501 f IFLAC 

ISN 0015 COHMON/SCRACH/ 70S( SCO) .W2 ( 5001 > Z (5001 *U( $06) tNSAVE( 10)* 

1 N00E(5f5O0)tLZ(lOO)tMATCH(2O}tNPUSED(20)»JF(20) >JL(20) tDOHIZO) * 

2 NVEHIZOt 10) »C0S7( 2.250) tUR( 100) 

C 

ISN 0016 ^ VIRITE (6.606) NX.H (NX ) »TOS(HX) «Z (NX) 

C MORE « NUHRER OF NODE MHICH HAS 8EEN CONSIDERED AS DPT. SOLN. 

ISN 0017 DO 355 I « 1*50 

ISN 0018 IF (KQREdl.EO NX) GO TO 354 

ISN 0020 IF(HOREd) NE 0)HI0 TO 355 

ISN 0022 MORE(I) » NX 

ISN 0023 GO TO 356 

ISN 0026 355 CONTINUE 

ISN 0025 357 WRITE 16.358) 

ISN 0026 GUESS >00 

ISN 0027 60 TO 359 

iSN 0028 325 HRITEI6.601) NX*PAD(I),J 

ISN 0029 Z(«X) = 20 0E30 * 

ISN 0030 GO TO 55 

ISN 0031 356 Extra - o o 

ISN 0032 IF(NP EO 0) GO TO 1 

ISN 0036 00 320 I > l.NP 

ISM 0035 DO 322 K ■ l.HYRS 
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ISN 003« 
ISM 0037 
ISN 003a 

ISN 0039 
ISM 0040 
ISM 0042 
ISM 0043 
ISM 0044 
ISM 0045 
ISM 0046 
ISN Q04B 
tSN 0049 
ISN 0050 
ISN 0051 
ISN 0052 
ISN 0053 
ISM 0055 
ISM 0057 
ISN 0050 
ISN 0059 
ISM 0060 

ISM 0061 
ISN 0062 
ISM 0063 
ISN 0064 
ISM 0066 
ISN 006S 
ISN 0069 
ISN 0071 
ISN 0073 
ISN 0074 
ISN 0076 
ISM 0077 
ISM 0078 
ISM 0080 
ISM 0082 
ISN 0083 
ISM 0085 
ISN 0087 
ISN 0088 


MPUSEDIKI • 0 0 
00 322 J >t ItlO 

322 NVEHIKtJI « 0 

C COUNT MUHdEB OF LAUNCHES REQUIRED PER PAD PER YEAR 
00 321 J - ItNM 
IF lYRLHfJ} ED 0«0I GO TO 321 
K 3 HtN(J) 

JA - LETTUI 
L > ITRIJA) 

Kl ■ K C HINOtO, tSlGM{NVtHV-Kn 

IF fNPAD(L«Kn.NE 11 GO TO 321 

K ■ LYAUI 

X = NHULT(K1,4A1 

X o YRLH{JJ*X 

MPUSEDIH) « NPUSEOIHI C X 

DO 323 HE « lylO 

IFINVEHIHtHEJ EQ Kl> GO TO 321 

IP (MVEH(HtHEJ.NE.O) GO TO 323 

NVEH(H,HE) ■ Kl 

GO TO 321 

323 CONTINUE 
321 CONTINUE 

C SEE IF SECOND PAD IS REQUIRED AT ANY FACILITY 
DO 391 J > IrSCi 

331 KATCHIJ} ■ 0 

DO 324 J > ItHYRS 

IF INPUSEOtJUCT 2.0*NPERP0(IU GO TO 325 
IF (NPUSEDIJ) IE NPEftPDfin 60 TO 324 
00 326 K ■ itlO 

IF (NP5TGU«K).EQ.O) GO TO 329 

IF (PSTGDdiKfS) C PSTGSI I»K(2)*LT 001) GOTO 326 

00 327 L 3 l»IO 

IF INVEHUiL) €0 0) GO TO 326 

LA B NVEHUtU 

00 328 LB “ l»4 

IFlVEHILBtLA) EQ 0) GO TO 327 

IF fVEHILB,LA|.NE NPSTGIIrKM GO TO 326 

DO 330 LC > lt20 

IF IHATCHILC) EQ»0) GO TO 332 

IF IMATCH(LC) EQ Kl GO TO 333 

GO TO 330 

332 HATCH(LC) ■ K 


ISM 0089 JF(LC) > J 

ISM 0090 333 JLILC) = J 

ISM 0091 GO TO 326 

ISN 0092 330 CONTINUE 

ISN 0093 328 CONTINUE 

ISN 0094 327 CONTINUE 

ISN 0095 326 CONTINUE 

ISN 0096 329 DO 334 K » 1»5 

ISN 0097 IF INPFAHtI,K) EQ 0) GO TO 335 

ISN 0099 IF IPFAKDI1,K,2) 6 PFAHSn,K»2l LT. 001) GO TO 334 

ISN 0101 DO 336 I » 1» 10 

ISN 0102 IF <NVEH(J*U EQ 0) 00 TO 334 

ISN 0104 LA B NVEK(JtL) 

ISN 0105 00 337 LB « 1»4 

ISN 0106 IP (VEHiLBtLA) EO 0) GO TO 336 

ISM 0108 LD ■ VEHIUB»LA) 

ISM 0109 DO 338 LC > t»4 

ISN 0110 IF 1NFS(LD»LC) EQ 0) 60 TO 337 

ISN 0112 IF (NFSaDfLC) NE MPFAH(!|K>) GO TO 338 

ISM 0U4 Kl = -K 


ISN 

0115 

DO 339 LE • 1>20 


ISN 

0116 

IF IM&TCHILE) EQ 0) GO TO 

340 

ISM 

DUB 

IF IHATCHaE) EQ Kl) CO TO 341 

ISM 

0120 

GO TO 339 


ISN 

0121 

340 MATCKRE) « Kl 


ISN 

0122 

JF(LE> » J 


ISN 

0123 

341 JL(LE) B J 


ISN 

0124 

GO TO -334 


ISN 

0125 

339 CONTINUE 


ISN 

0126 

339 CONTINUE 


ISM 

0127 

337 CONTINUE 


ISN 

0128 

336 CONTINUE 


ISM 

0129 

334 CONTINUE 


ISN 

0130 

335 DO 342 K « 1»5 


ISN 

0131 

IF CNPINTLUtKI.EO 0) GO TO 324 

ISM 

0133 

IF <PlMTsn«K»2).LT *001) 

GO TO 342 

ISN 

0135 

00 343 L B 1*10 


ISN 

0136 

IF (NVEK<JiU.E0«O) GO TO 

342 

ISN 

0138 

LA • NVEH(J,L) 


ISN 

0139 

DO 344 LB ■ 1*3 


ISM 

0140 

IF (VEHaBLl.LA)«EO 0) CO 

TO 343 

ISN 

0142 

LC • VEHILBfLAI 
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I5N 01A3 DO 34S LO - tt4 

ISN 01^4 IF (NFSaC.lD) EQ 01 GO TD 344 

tSN 0146 IF (NFMlCtLni »JE NPIHTLlItKH GO TO 34& 

tSM 0146 I.E - VriMLOGltW) 

J4N 0149 0» 346 LF • 1*4 

ISN Ol>Q IP INPS(LEiLF) EQ 0) CH TO 345 

ISN 0152 IF INFSaEtLF} EQ NPINTUdtKU GO TO 347 

J$N 0154 346 COMTINIIE 

ISN OISS CO TO 345 

ISN 0156 347 Kl » -*100 - K 

ISN 0157 DO 346 LG > ItZO 

ISN 0158 IF CHATCH(l,G1 EO 01 GO TO 349 

ISN 0X60 IF IHATCiKLG) EQ Kll GO TO 350 

ISN 0162 GO TO 348 

ISN 0X63 349 HATCH(LG) > KX 

ISN 0164 JFtLGi « J 

ISN 0X65 350 JLILGI » 4 

ISN 0166 GO TO 342 

ISN 0167 346 CONTINUE 

ISN 0168 345 CONTINUE 

ISN 0169 344 CONTINUE 

ISN 0X70 343 CONTINUE 

ISN 0171 342 CONTINUE 

ISN 0X72 324 CONTINUE 

C ADO EXTRA PAD COSTS ASSOCIATEO WITH THIS SOLUTION 
ISN 0X73 00 351 J » 1»2G 

ISN 0X74 IF (HATCHIJ1 EO 01 GO TO 320 

ISN 0176 IF (HATCHIJI LT.-lOO) GO TO 352 

ISN 0170 IF CHATCHN) L7 0» 00 TO 353 

ISN 0180 K B MATCHUI 

ISN 0X81 EXTRA ■ EXTRA C PSTG0(1»K»2) C PSTGS<t»Kr21 * PLOATIJU JI'^JFIJXCX] 

ISN 0182 GO TO 351 

ISN 0183 353 K » -HATCHUl 

ISN 0164 EXTRA > EXTRA S PFAKD{ltKt2) £ PFAHSd *X«2l*FL0AT(JL(J)'‘JPUU11 

ISN 0X85 GO TO 351 

ISN 0166 352 K ■ -HATCHIJI - 100 

ISN 0107 EXTRA • EXTRA t PlNTSttiKiZI * FLOAT I JL I J»-JF I JICl) 

1$N 0188 351 CONTINUE 

ISN 01B9 320 CONTINUE 

ISN 0190 1 WRITE <6|4031 EXTRA 

C 

C ADO PREVIOUSLY NEGLECTED SUSTAINING COSTS 


ISN 0191 IFILDUT EO Ol GO TO It 

ISN 0193 DO 10 I - l,NUKO 

ISN 0194 IFlKOUTin EQ 0*0R«LZU1 EQ 0) GO TO 10 

ISN 0196 LZm • 0 

ISN 0197 DO 8 J • l,NH 

ISN 0198 LH B HIHIJ) 

ISN 0199 DO 6 X • 1,20 

ISN 0200 IFINOMRECfLHiKI EQ 0) GO TQ 6 

ISN 0202 IFlNDNRCCILHfK) NC I) GO TO 6 

ISH 0204 LY e tYRIJ) 

ISN 0205 LZm B MAXOlLZaiflLY-NYOmSlI/KlI 

ISK 0206 6 CONTINUE 

ISN 0207 8 CONTINUE 

ISN 0208 XX B LZm*KI 

ISN 0209 EXTRA b EXTRA L XX«SAVS(LT1 

|$N 0210 iFiDSm GE*«S] GO TO 10 

ISN 0212 EXTRA b EXTRA ( DSIt) 

ISN 0213 10 CONTINUE 

ISN 0214 CALL PACKUZt NQDEI ItNX) tNUHOyA | 

ISN 0215 HRITE<6t4051 EXTRA 

I$N 0216 11 IF {EXTRA LT«*Q0I) GO TO 354 

I$N 0216 TDSINX) b TOSINXI £ EXTRA 

ISN 0219 ZINXl B ZiNXi C EXTRA 

ISN 0220 GUESS > z(NX) 

ISN 0221 WRITE 16,2101 CUESS 

ISN 0222 6C TO 55 

ISN 0223 354 WR1TEI6,4021 Z(NX1 

ISN 0224 359 EXTRA • 0 0 

ISN 0225 RETURN 

ISN 0226 55 EXTRA b lOQ Q 

ISN 0227 RETURN 

ISN 0228 210 FORMAT fl2H NEW GUESS F12.21 

ISN 0229 358 F0RHATI36H0H0RE THAN 50 NODES HAVE SEEN TE5TED1 

ISN 0230 401 FORMAT <26H0P0SSI BLE SOLUTION AT N00E,14,49H NOT FEASIBLE, KORE TK 

lAH 2 PADS NEEDED AT COMPLEX, IX, A4f6H IN YEAR, 131 
ISN 0231 402 FCRHATI49HO THIS ASSlCNHENT IS 0P7IHUH AT A TOTAL COST 0F»F12 2) 

ISN 0232 403 FORMAT IlSHOEXTRA PAD COSTS FlO 21 

ISN 0233 404 FORMAT UHO, 13IIH* 1 ,19H POSSIBLE SOLUTION ,12UH*1/1H ,J3,29X» 

I 3(F9 2,5X11 

ISH 0234 405 FORMAT (SIHOEXTRA PAD C SHALL SUST COSTS •, F10«2I 

ISN 0235 END 


«••««* end of COMPILATION »«••»* 
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J\. Fsa-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LISTtXREFfHAPtNCAL 

variable options USED - SIZE»( 126976 >2A5T6I DEFAULT OPTIONIS) USED 


lEHOOOO 

NAME H0X02PD<R1 


, IEH0461 

PACK 


M IEN0A61 

lecoK* 


1 


CROSS REFERENCE TABLE 


CONTROL 

SECTION 


ENTRY 





NAME 

ORIGIN 

LENGTH 

HAKE LOCATION 

NAME LOCATION 

NAME 

LOCATION 

NAME LOCATION 

PADCST 

00 

12BC 






NONDIH 

1290 

1C 






VEHCLE 

12B0 

ABO 






STAGE 

1760 

6EA 






MISSON 

lEAS 

A90 






PADS 

2BDB 

378C 






CK002E 

60 6Q 

06 






SAVEPT 

60F0 

186 






SAVELD 

6270 

IB 






OSCOST 

6290 

1930 






VEHREC 

7AC8 

3CFA 






SCRACH 

07C0 

53FC 






LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION REFERS TO 

SYMBOL 

IN CONTROL 

SECTION 


298 

NONOIN 

NONDIH 

29C 

VEKCLE 

VEHCLE 

2A0 

STAGE 

STAGE 

2AA 

MISSON 

MISSON 

2A8 

PADS 

PACS 

2AC 

PADS 

> PAOS 

260 

PADS 

PADS 

2BA 

CH0D2E 

CHOOZE 

2BB 

SAVEPT 

SAVEPT 

2BC 

SAVELB 

SAVELB 

2C0 

DSCOST 

OSCOST 

2C4 

VEHREC 

VEHREC 

2CB 

VEHREC 

VEHREC 

2CC 

VEHREC 

VEHREC 

200 

SCRACH 

SCRACH 

206 

SCRACH 

SCRACH 

208 

SCRACH 

SCRACH 

2DC 

PACK 

SUNRESOLVED 

2E0 

1BC0H> 

SUNRESOLVED 

ICA 

SCRACH 

SCRACH 

ICC 

NONDIH 

NONDIH 




ENTRY ADDRESS 

00 





TOTAL length 

lOBCO 






***«N0X02PD NOH^ftEPLACED IH DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


IEW0461 HARNING • SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCEt NCAL HAS SPECIFIED 


D-34 





i 
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- { 


t i 


117) 05/360 FORTRAN H OATfi 70 113/15 23*‘tl 

C0HP116R OPTIONS - NAME* HAtN,OPT»02,LlNECNT-4A,SOO'RCE,&COiNOLISTTNOO€CK,LOAO,NOMAP»HOeOIT,IOtHOXREF 


I5N 0002 


SUBROUTINE P£RP(NrHtVDESfHPLiVREFtPREFtH(^)HIt ISPtTHR|TSL»01AilNCLf 
♦ ERR) ■’ 

ISN 0003 


REAL ISPtINCL 

ISN OOOA 


INTEGER COUNTtERR 

ISM 0005 


OIHENSlON UFIN)»MMN) vTSPIN) »THRIN) 

ISN 0006 


DATA Pl»6 /3 I4l593t32 174/ 

ISN OO07 


K « N 

ISN 0008 

J 

KQOE * 0 

ISN 0009 

ERR > 0 

ISN 0010 


V ■ VDES 

ISN 0011 


NPL B 0 

ISN 0012 


IF (PREF) 30*30,10 

ISN 0013 

10 

MPL « PREF 

ISN QOlA 

30 

DO 100 COUNT « 1*50 

ISN 0015 


K - HPL 

ISN 0016 


DO 40 lBl*X 

ISN 0017 

40 

W - USHpUlANin) 

ISN 0010 


HLO ■ W 

ISN 0019 


VIDl B 0 

ISN 0020 


00 50 Ib1«K 

ISN 0021 


HR a H-HFU) 

ISN 0022 


IF (HP) 45*45,48 

ISN 0023 

45 

ERRa2 

ISN 0026 


CO TO 120 

ISN 0025 

48 

VIOL B VI[>ICG*ISPU1*AL0S(H/W8) 

ISN 0026 

50 

W • 

ISN 0027 


IF (KOOF) 90*55*90 

ISN 0028 

55 

IF <PREF1 70*70,60 

ISN 0029 

60 

VLOSS B VIDL-VREF 

ISN 0030 


CO TO 97 

ISN 0031 

70 

T8 » 0 

ISN 0032 


00 80 IbIvK 

ISN 0033 

80 

TO B T8£WP<n«ISP(n/TKtUn 

ISN 0034 


MX > MB * EXP (V0ES/1SP1X)/C> 

ISN 0035 


TB B 7B * <MX^D)*1SP(K)/TKR(K) 

ISN 0036 


TOW B T5L/ML0 

ISN 0037 


IF (TDM CT 1 5) TOM B i.j 

ISN 0039 


VLOSS B 6600 »C2*-T0M) E 2800 *ITHRU»/TSl-l*J 
* t 5E6*PI»0IA**2/ML0C4 l» EXPCTB/I25.) -1530 •COSIINCL/57 296J 

ISN 0040 

90 

OELV B VIDL-VtOSS-VREF-V 

ISH 0041 


HPL » HPL£(HPLtWnxn*OELV/lSPfKJ/C*tl CV.8/1MBtHFU)n 

ISN 0042 


IF {A0SU)EtV»-l J 95*95.100 


ISN 

0043 

95 

IP IKODE) 110*96*110 

ISN 

0044 

96 

PREF B MPL 

ISN 

0045 

97 

V * VDES 

ISN 

0046 


K • NCH 

ISN 

0047 


KOOE B 1 

ISN 

Q04B 


HPL - 0. 

ISN 

0049 

100 

CONTINUE 

ISN 

0050 


ERR B 3 

ISN 

0051 


60 TO 120 

ISN 

0052 

110 

IF (HPL LT.O«) ERR * i 

ISN 

0054 

120 

RETURN 

ISN 

0055 


END 


***•«* eNO OF COMPILATION *••*«* 
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Fes-UEVBI. LlNKACe EDITOR OPTIOHS SPSCIFIEO L 1 ST ,XREFtM4P,NCAL 

VARIABLE OPTIONS USED - SIZE>a269T6»2AS76l DEFAULT OPTlONiSl USED 

lEHOOOO NAHE H0X02PFIRI 

1E>I0<>61 COS 
IEMQ461 EXP 
IEH0A61 ALOG 


CROSS REFERENCE TA8LE 


CONTROL SECTION ENTRT 


NAHE 

ORIGIN 

LENGTH 

NAHE LOCATION 

NAHE LOCATION 

NAHE 

LOCATION 

NAHE LOCATION 

PERF 

oo 

5CE 






LOCATION 

REFERS 

TO SYMBOL 

IK CONTROL SECTION 

LOCATION refers 

TO SYHBOL 

IH CONTROL 

SECTION 

156 

160 


COS 

ALOC 

SUHRESOLVED 

SUNRESOLVEO 

15C 

GXP 

SUNRESOLVED 


ENTRY ADDRESS 00 

TOTAL LENGTH SDO 


••••H0XO2PF NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


IEH0461 WARNING SYHaDL PRINTED IS AN UNRESOLVED EXTERNAL PEFERENCEt NCAL WAS SPECIFIED 


I1T> OS/360 FORTRAN H 


DATE 70 IIS/IS 29 10 


tSN 


tSN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 


ISN 


ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 


ISN 

ISN 

ISN 

ISN 

ISN 


COMPILER OPTIUKS - NAME* MAIN, 0PTp07«LlNECNT«44f SOURCE<ECOiNQLIST»KODECS(L0AOrN0HAP(NOSDIT»ID*N0XREF 
0002 SUBROUTINE PRINT 

C «*«pfttNT OUT DECISION COST CATEGORIES*** 

C 


0003 

000 ^ 

0005 

0006 
0007 
OOOB 
0009 


0010 


0011 

0012 

0015 

0016 
0016 
001 B 
0020 
0022 

0024 

0025 
□02T 
0029 
0031 

0033 

0034 

0035 

0036 

0037 
0039 

0041 

0043 

0045 

0046 

0047 


*• 1NTE0ER*2 N0NR6C.LY0tNPFAH,MPSTG»NPlNTL,NPIMTU 
COHHON/NONDtHy NUHD (N5TG|HYRS iNFAHtNCI iNP.NV 

COHNON/STAGE/ LSA(40 I *SNR(41 ) rSTG(40I * SU$(40) tNYS (40) » SUSLS(40|2I« 
1 NF5f40*4) 

CDMHON/DSCOST/ DSdOOI tSUSTdOOl t NYDI 1001 * LYD( 100> «NQNRECU20t 20) 
CQHHON/tNT/ NFNL t40l tNFKU (40 ) tOINT 140) «SINT140 ) t S INTLS I40f 2 ) 
COMHON/FAKILY/ KOOEF (30) tFHNROO) tFHSUS(30)tFHSLS(30t2)*PAH(30) 
COHHON/PADS/ PFAMO (30t9t3 ) tPFAHS(30i S t 3 1 tNPFAH | 30»5 ) » 

1 P$TGD(30*10f31tPSTGS(30flOf3ltNPSTG(3QtlO)*PlNTS(30»5«3)t 

2 NPfNTL(30tS)tNPINTU(30f5)»PAO(30) 

COHKON/SCRACH/ HAT < 100) »LYF( 30 )»NYP (30) tKAF (30*3 ) t 

1 NAlC(4O»3)tHAPF(30t5)tHAPSI30f LO) tHAP n30t5) tDUHHY(4045) * 

2 NAS(40.3), VH(2fl20) 

HR|TEI6«211) 

00 925 t a ItNUHD 
J»MAT(1) 

IF IJ*LT -400) GO TO 9071 
IF (J LT -300) GO TO 9072 
If IJ.LT -200) GO TO 9018 
If(J LT -100) GO TO 345 
IF(J LT 0) GO TO 340 
DO 9073 K ■ li3 
IF (MAS(U«K) NE 1) GO TO 9073 

IFIX £0 1) WRlTE(6t20B) I tSNRi J ) » SUS (J ) tSTG(U) tNYO( I ) tLYD( 1 ) 

IF(K E0.2) WRITE(6t9074) I »DS ( I ) tSUST ( 1 ) ^STG( J ) tNYD( I ) .LYDU 1 
IFIK.EO 3) NRITE(6,907S) 1 »0S 1 1 1 1 SUSTU ) tSTG(J) .HYO( I ) , LYD(I ) 

GO TO 925 
9073 CONTINUE 
340 JX*“J 

00 9076 K • lt3 

IF (KAF(JXtX) NE 1) 60 TO 9076 

IF IX EQ 1) WR|TE(6*209) I tFKNRrJX)iFHSUS(JX)tFA)(( JX) fNYDdlr 
1 LYDin 

IF (X EO 2) WRITE(6«9077) I ,DS( H rSUST ( 1 ) tFAH< JX) * NyDII) tLYOU > 

IF (X E0.3) WRITE(6t9078) 1 tDS( I ) t SUST ( I ) iFAKI JX) tNYDU ) tLYD(I ) 

GO TO 925 
9076 CONTINUE 
345 JX»-J-100 
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(SN 0048 
ISN 0049 
ISN 00^0 
ISN 00^1 
ISN 00>3 

ISN 00$S 

ISN 00^7 

ISN 0059 
ISN 00i>0 
ISN 00 61 
iSN 0062 
ISN 00 63 
ISN 006S 
ISN 0066 
ISN 0067 
ISN 0068 
ISN 0069 
ISN 0070 
ISN 0071 
ISN 0073 
ISN 0074 
ISM 0075 
ISN 0076 
ISN 0077 
ISN 0078 
ISM 0079 
ISN 0081 
ISN 0082 
ISN 0083 
ISN 0984 
ISN 0085 
ISN 0086 
ISN 0087 
ISN 0088 
ISN 0089 
ISN 0090 

ISN 0091 


0V«MFHUJX) 

JZeNFHUlJXI 
DO 9079 K * 1*3 

IF |H&IC(JX*X} NE I) CO TO 9079 
IF IK EO 1} HR1TE(6*210I 

1 I«DlNT|jK)*SINT|JXI,FAhi|jrl tFAMUZItNYCMMilYOin 
IF IK BQ 21 UR1TE{6»90R01 
1 ItOSn l*SUSTUl*FA>MJY)tFAH(JZltNY(inUtYOin 
IF (K EO 3) URITE(6»908n 
1 IfOSintSUSTdl iFAKIJYltFANIJZltNYDintLYOm 
CD TO 925 
9079 CONTINUE 
9018 JX o “J - ZOO 

00 9082 K * l»5 

IF (MAPFfJXtKl NE«t) CD TO 9082 
, KX B NPFAH(JX»K) 

URlTEf 6*9083) I tOSlI) tSUST 1 1 ) iFAHIKX ) rPADI JX) ,NY[>1 1 ) * LYOI M 
CD TO 925 
9082 CONTINUE 
9072 JX ■ -J - 300 

DO 9084 K • 1*10 
IF (MAPSlJXtK) NE*n GO TO 9084 
KX s MPSTC(JX*K) 

HRITEC6t9085> 1 tOS 11) «SUST(| I «STC<KX ) *PADt JX1 *MYD 1 1) * LYOf I ) 

GO TO 925 
9084 CONTINUE 
9071 JX ■ -J - AOO 

DO 9086 K • l«5 

IF (KAPKJXvX) NE 1) GO TO 9086 
XX s NPIN7tUX*X) 

KY ft NPimU(JX«K) 

NRITEI6|90871 t*DSll)TSUSTn)*FAK{KX)fFAH(KY)*PADUX)*MYD|n*l.TDIl ) 
GO TO 925 
9086 CONTINUE 
925 CONTINUE 
RETURN 

208 format U4f6X»2P12«2t5X>A4tlXtl4HSTACE HARfiUARE* 29X* I3*9X* 13) 

209 format U<«6X,2F12 2>5X«A4tIX*15H5HARED HAR(MArE*28X* I3»9X, 13) 

210 FORMAT! 14(6X*2F12 2* SX* 15H [NTEGKAT ION OF lAAySH ANO *A4» 

1 9H HAR0HARE*11X*I3i9X»I3) 

211 FORMAT12SH10UANTIT1ES ORAMCNEO UPON/1HO»21X«11HOEVELQPMEHT*ZX* 

1 lOHSUSTAlNlNCtSOXtlOHYEAR AVA It.t2X»9HLAST YEAR//) 


ISN 0092 

9074 

FORMAT 

ISM 0093 

9075 

FORMAT 

ISH 0094 

9077 

FORMAT 

ISM 0095 

9078 

FORMAT 

ISN 0096 

9080 

FORMAT 


1 

16X«1 

ISN 0097 

9081 

FORMAT 


1 

16Xi] 

ISN 0098 

9083 

FORMAT 

ISN 0099 

9085 

FORMAT 

ISN 0100 

9087 

FORMAT 


1 

THAT 

ISN OlOl 


END 


2.2* 5XtA4*IX»9HSTAGE ETR«3AXr 13*9X* 13 ) 

? 2»5X*A4*1X*9HSTACE MTR t 34X* I3*9X« 13) 

2 2f5XtA4rlXtlOHSHARED ETR*33X* I3> 9X» 13) 

2 2>5X,A4,LX«10HSHARE0 UTR,33X,13*9X»T3) 
2.2t5Xtl5HlNTEGRATI0N OF *A4*5H ANO *A4*4H ETR* 

2«2*5Xtl5HINTEGRAT10N OF *A4*5H AND *A4*4H UTR* 

2 2»5X»A4,lXtl4HSHAReO AT PAD i AA v 25X* I3t9X»I3) 
2 2(5X*A4*1X*13HSTAGE AT PAO tA4*26Xtl3»9X«13) 

2 2t5Xrl5H!NTEGRATI0M OF *A4*5H ANO vAArlXf 
,13*9X*23) 


«**•** end of compilation **«*•« 
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F68-LEVEI. linkage EDITOR ORTIONi SREClFIEO L ISTiXREP jHAPtNCAL 
VARtAOLE OPTIONS USCO - SI?E*I1269TAf2A576) 

EXOOOO NAME HOXOSPRtR) 

Evro^Ai leCOH^ 


DEFAULT OPTIONfSI USED 


CROSS REFERENCE TABLE 


CONTROL SECTION 


ENTRY 


NAME 

ORIGIN 

length 

PRINT 

DO 

USA 

NONDIM 

D90 

1C 

STAGE 

DBO 

6E4 

OSCOST 

1498 

163S 

INT 

2C0D 

3C0 

FAMILY 

3090 

20D 

PADS 

3360 

37GC 

SCRACH 

6AF0 

53FC 

LOCATION 

REFERS 

s 

TO SYMBOL 


368 

NONOIH 

370 

OSCOST 

378 

FAMILY 

380 

PADS 

388 

SCRACH 

390 

lecoH- 

ENTRY A(X)RESS 

00 

TOTAL LENOTH 

befo 


MAKE LOCATION 


IN CONTROL SECTICW 

NONOIM 

OSCOST 

FAMILY 

FADS 

SCRACK 

hjnaesolveo 


HAKE location NAME LOCATION HAKE 


LOCATION REFERS TO SYK8QL IN CONTROL SECTION 


36C 

STAGE 

STAGE 

379 

INT 

INT 

37C 

FADS 

PADS 

384 

PADS 

PAOS 

38C 

SCRACH 

scrack 


****KOXOZrR NO(J REPLACED 1H DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


IEW0A6I MARNIKG - SYMBOL PRINTED IS AH UNRESOLVED EXTERNAL REFERENCE* NCAL HAS SPECIFIED 


FORTRAN IV G LEVEL 1, HOO A STGNUN 


DATE • 70U3 I5/45/2D 


0001 

0002 

ODDS 

OOOA 

0005 

0006 


0007 

OOOS 

0009 

0010 
0011 

0012 

0013 

OOIA 

0015 


0016 

0017 

ODie 

0019 

0020 
0021 
0022 
0023 
0029 

0025 

0026 
0027 
0026 


SUBROUTINE STGNUHdFLAGlI 

C COMPUTE NUMBER OF STAGES ACTUALLY USED AHQ THEIR RECURRING COSTS 
1HTEGER*2 tETT«LYR>H!N»NPADyV£HtNHULTvLYOtNONREC 
C STORAGE FOR MAlNf OECiSHt STGHUHr CAPAQLf AVAIL* AND CHOOZ 
COHHON/NONOIH/ NUHDiNSTG*NYR 5»NFAH«NCI fNP*NV 
C STORAGE FOR MAIN, DECISH* STCNUN, CAPABLt AND AVAIL 
COKHON/VEHCLE/ NpAD(2t60lrVENt9*60l«NYP (2*601 
C STORAGE FOR MAIN* STGNUH* CAPA6L* AVAIL* AND CMQDl 

COHNON/HISSOH/ LETTC2S0) . LYR (250).LTR(50J *YRLM(250 ) tMIN(2S0) *NH 

C storage for main* DECISH* STCNUH* AND AVAIL 

COH.MON/STACE/ LSAfAOl *SNRI9U *STC(40 ) *SUS (AOI *NYS(40J *SUSLSf40r2>* 
1 NFS(A0t4) 

C STORAGE FOR MAIN* OECJSN* ANO STGHUH 

COMMON/ INT/ NFHL(4DitNFKUI40) »D1NTIA0> iSINTlAOI *SlNTLS(40*21 
C STORAGE FDR MAIN* STGNUH* CHOOZ* AND CAPABL 

COMMON/VEHREC/ RECUR I60*2D«2I *KMULT (60 *501 * IFLAG 
COKKON/CAPMAT/ VNHI 4*2S0> »NV2 
C STORAGE FOR MAIN ANO STGHUH 

COMMON/ 1 NT R E C/ R I NT < 4 D I * P LC I NT ( «0 ) 

CONMON/STGREC/ NBY(4OItH00E(4O»3}*SR(4Dt3>«PLC(40i3]*P0J(3)f 
1 SRJ(3*3) 

COMMON/DSCOST/ DSCIOO] *SUST(100) »NYD I lOO) * LYD{ lOO)*NONRECI IZOtZOI 
CQMMON/REUSBL/ NUfSOI *UPPl SOI 
C STORAGE FOR STGNUH AND REUSE 

CONMON/NUHBER/ STGVTR (AQ * 20 « 21 * R IHTYR (40* 20 1 
C0HM0N/5CRACH/ STGYHU(4D«2DJ «ST6KAX{A0f 20*2 1 •RlNTHX(4PtZ0) * 

1 KSAVE{401f I5AVE(40li DUMMY ri73Sl»MAS (40*3 1 *OUR< 1601 *NUS (401* 

2 KLUE(40) 

C 

IP (IFLAG GE.ll CO TO 621 

C FIND MAX NUH OF EACH STAGE AND INTEGRATION POSSIBLE 
DO 661 I « IfNSTG 
Nusm « 0 
DO 661 JalfHYRS 
STGYTRd* Jfll • 0.0 

661 STGYTR(I»J,21 =00 
IP(NC1 EO 01 GO 10 665 
DO 662 I B lyNCI 

DO 662 J c IfHYRS 

662 AINTYRdtJl » 0 0 
665 00 650 I * ItNH 

IF(YRLHd) £0 0 Ol GO TO 650 
J = LYRIU 


LOCATION 
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PORTKAN IV G LEVEL 1* HOO 


STGKUH 


DATb > 70113 


15/45/28 


0029 

0030 


0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 
0U65 

0066 

0067 

0068 


FORTRAN 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 
0066 
0087 
0068 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
OlOL 
0102 

0103 

0104 

0105 

0106 

0107 

0108 
0109 
OUO 

om 


JX = LETTll) 

K B LTRIJXI 

C HSAVE t ISAi/E INDICATE IP THAT STAGE OR INTEGRATION HAS ALREADY 8EEN 
C COUNTED FOR MISSION NH 

DO 9003 !Z B 1,40 
HSAVEnZ) B 0 
9003 ISAVEIIZ) B o 

00 650 IV e 1,NV2 

IF<lTEH(VNHtl,n,IV,n EQ 0> GO TO 650 
U B IV -t- KIN0I0*I5IGN|NV,NV-IV>] 

X B NHOLTIIlfJXl 
DO 649 MS > 1,4 
lA » VEH(HS,ll) 

IFllA EO.O) GO TO 650 
IFIHSAVEIIA) EQ 1) GO TO 644 
STGYTR{1A,J,X) « YRLHI!1*X * STGYTR I TA, J ,KI 
HSAVEUA) B 1 

644 IPINCI FO 0} GO TO 649 
IFIHS £0*4) GO TO 650 
!F(VEHIHS«-1,11)»E0»0} go to 650 
LI = VEHIMS+I.IU 

DO 645 HI B 1,NC1 
IFIISAVEIHI) EQ.n GO TO 645 
00 646 KY B 1,4 

IFINFHUNn NE NFSHAtKyil GO TO 646 
DO 647 KZ B 1,4 

IFINFHUtHn EQ NFS(Lt,KZM GO TO 640 

647 CONTINUE 
646 CONTINUE 

GO TO 645 

648 RINTYAIHItJl b RIKTYR(HI,JI 4- YALHIM^X 
ISAVEIHU • 1 

645 CONTINUE 

649 CONTINUE 

650 CONTINUE 

DO 668 I B ItNSTG 
DO 668 J • IfHYRS 

668 STCYNHIItJl b STCVTR(I,J,11 4 STGYTRU,J,2l 
GO 70 673 

C OETERHINE NUM8ER OF EACH STAGE AND INTEGRATION USED IN LAST ITERATION BY YEAR 
621 DO 623 1b 1,NSTC 
DO 623 JaliHYRS 
DO 623 X«l,2 


IV G LEVEL I, HOD 4 STGNUH DATE • 70113 15/45/28 

STGHAXn,J,X) - STGVTRIItJiKI 

623 STCYTRU,J,X1 •• 0 0 

IF INCUEO 0) GO TO 9000 
DO 624 iBlfNCI 
DD 624 Jal,MYRS 
RINTHXU.J) » RlNTYRIItJ) 

624 RINTYRIltJ) • 0.0 

9000 DO 622 J«1,NH 

IFIYRLHtg) EO O.Dl GO TO 622 
II B HINUl 

I « II 4 HIN0<O,|SIGN(NV,NV-lin 
K B LYRU) 

JX • L6TTIJ) 

ITR » LTRtJX) 

X B NHULT<I,JXI 
00 625 HS s 1,4 
U > VEHINS, n 
IF (L.EO 01 GO TO 622 

STGYTftlLiK, ITftI s STftYTRl L,K, ITR J +YRLHIJ»*X 
If INCl EQ.OI GO TO 625 
IF (HS E0.4I CO TO 622 
IF (VEH(HS4l,]|.EQ 0) CO TO 622 

LI « VEH|HS*l»n 

00 626 HI«1,NCI 
00 627 KYbI,4 

iF(NFHLtHl) NE NFS(L,KYW GO TO 627 
DO 620 KZ • 1,4 

IF (NFHurHl) EO NFS(Ll,KZ1l GO TO 629 

628 CONTINUE 
627 CONTINUE 

GO TO 626 

629 RINTYRIH1,K> « RINTYRIHItKI 4 YRLH(J)»X 
626 CONTINUE 

625 CONTINUE 
622 CONTINUE 

IF INCI EO 0) GO TO 900l 
DO 691 1*1, NCI 
00 691 J>1,HVRS 

691 IFIRINTYRI t,J) EO 0 0 iRtNTVRl 1 , J I b RlNTHXdtJI 

9001 00 674 I B 1,M5TG 
00 676 J * 1*HVR$ 

DO 676 K B 1,2 

IFIABSlSTGYTRdiJtK) - STGMAXlI , J,KU .GT 0 OOl.ANO STGYTRd , J,K) • 
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MOO A 


STGNUH 


DATE ■ 70U3 


15/A5/28 


0112 

0113 

0114 

0115 

0116 

0117 

one 

0119 

0120 
0121 
0122 
0123 
0129 

0125 

0126 
0127 
0126 

0129 

0130 

0131 

0132 

0133 


0134 

0135 

0136 

0137 
013B 

0139 

0140 

0141 

0142 

0143 

01 44 

0145 

0146 

0147 


FORTRAN 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 
OUO 
0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

01 80 
0181 
0182 

0183 

0184 

0185 

0186 
0187 


IGT 0 OOll 60 TO 677 

676 continue 
HR 17E1 6,410l> 

4101 FORMAT llHOfAX, 40HTME OPTIMUM SOLUTION IMS BEEN DETERMIHEO) 

IFtAGl k 0 

return 

C OETERHINE HAROWARE COSTS BY YEAR BASED ON LAST ITERATION 

677 00 8013 1 > 1.NST6 
MLUEIIl s 0 

00 8014 i « lyHYRS 

IF(ST6YTRn*JTl) GT Q 01 OR STGYTRI 1 1 Jt 21 •GT. Ol> KLUEdl « I 
STCYHMIUJ) « ST6YTRn»J»l) STOYTRt 1 1 Ji2 > 

8014 CONTINUE 

IFiXLUEin EO*l) GOTO 8013 
DO aOl6 J « ItMTRS 
STGYTRMtJvn « STGHAXUtJtll 
, ST6YTR(I*Jf2l • STCHAXd»Jt2) 

' 3016 S1CY14m«J) • ST6YTRI] f Jfll 4- 5TGYTR [ I » J 1 2 ) 

8013 CONTINUE 

C ADO INITIAL REUSABLE PURCHASE PRICE TO DEV» COST DS 
673 DO 710 1 > ItNSTG 

lF(NUn>«EO.Q) CO TO 710 

IFIIFLAG GE 1 AND NUIII GE 0) GO TO 710 

IFIIFLAG EO 0) GO TO 709 

Nuscn > Num 

C THE FOLLOWING CARD IS USEO IF THE PROGRAM ITERATES ON INITIAL QUANTITY 
C TO BE PURCHASED 
C CALL REUSE 

^709 NI s MASlIfll 

X « lABS(NUm) 

y « Nustn 

osiNii « os(Nn * (X4>y> * uppin 
710 CONTINUE 

C hake adjustment for 8ATCH1NG OVER YEARS 

DO 663 1 • ItNSTG 
IF INBYin EO.l) GO TO 663 
lA s 2 

18 • NBYtn 

IC a 1 

666 DO 664 J« lAtlB 

IF IJ GT HYRSI CO TO 700 
664 STOYHWUfICI ■ STOYWIItlC) + STGYHWUfJ) 

700 DO 667 J - IA.18 


XV G LEVEL It MOO 4 StGNUH DATE * 70113 15/45/28 

IF CJ GT HYRSJ 60 TO 663 
667 STGYHHIItJ} * STGYHH(I»TC> 
lA n lA -t- NRYtll 
IB a IB 4 NBYin 
IC » IC ♦ NBYCIl 
GO TO 666 
663 CONTINUE 

00 9002 ! a ItNSTG 
IFiKlUEin EO 0) GO TO 9002 
DO 9002 J a ItMYRS 

IF<STGYTR(ItJ»ll LT..OU STGYTRIItJtll » STGMAXCI.Jtll 
IF ISTGYTRn»Jf2ULT»«0U S7CYTRI I« Ji 2 1 > STCHAXt I « Jt 2) 
IF($TOYHM(ltJ) LT..01I STGYKWIltJ) > STGYTRU i Jt 1 MSTOYTRII « J« 2) 
9002 CONTINUE 

C DETERMINE VEHICLE RECURRING COSTS BY YEAR AKO LAUNCH SITE 
DO 632 laltNV 
DO 635 JaltHYRS 
RECURCltJtU a 0 0 
635 RECUR|I»Jt2I -00 
DO 633 HS « li4 
K * VSHIHStM 
IF {K EO 0) GO TO 63Z 
DO 634 ja ItHYRS 

IF <STGYHH(K,J)*LT 0 ODD GO TO 634 
IF (HOOEfXtlUNE 0) GO TO 8015 
KOWR 3 SRlXtll « STGYHWIKiJl «• PLCtKill 
GO TO 8010 
8015 LX 3 MDOElKtll 

IF ISTCVHH(X,JKl 6 POJILXM HDHR • SRJaX.lI/STGYHVMKtJI 
IF (STGYHWIXfJ) GT*POJILXn HOUR > SRJ ILX 1 2>-t-SRJ< LXr3l/STGYHW (Kt J I 

8010 DO 692 L •• lt2 
IFtSTGYTRIXtJtU EO 0 0) GO TO 692 
H > L 4 1 

IF |MODE(X,K) ME 0) 60 TO 8011 

RECUftUtJtDaRECURnr JfU4HDWR4SR(KtH1*STGYTR(KtJ«LI**PLC(KfH} 

CO TO 692 

8011 LX a HQDEIKtMI 

IFISTGYTRIKtJ fLI LE»POJUXM RECURIItJ tU - RECURIItJ tU 
1 4 SRJUXtlJ/STGYTRrK.J ♦ KDWR 

IF fSTGYTRlKtJ »L) GT POJILXM RECURIItJ tLI - RECURIItJ >L) * 

1 SRJfLX»2I 4 SRJ(LXt3>/STGYTR<KtJ tL) 4 HQWR 

692 CONTINUE 
634 CONTINUE 
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OUB 


IF (NCI EO.OI GO TO 633 

0189 


IF (KS EO 41 GO TO 632 

0190 


IF(VEHrHS+ItI) £0 01 GO TO 632 

0191 


Kl * VEHIHS-fltll 

0192 


DO 636 LbI.NCI 

0193 


DO 637 KY«1,4 

0194 


IF (NFHLn.1 NS NFS(K,KY)1 CO TO 637 

0195 


DO 638 XZ ° kt4 

0196 


IF (NFKUtU EQ NFS(KltXZl) GO TO 639 

0197 

630 

CONTINUE 

0198 

637 

CONTINUE 

0199 


GO TO 636 

0200 

639 

DO 640 J » KHYRS 

0201 


tF(R(NTYR(LiJ} EO.O 0) GO TO 640 

0202 


HDMR • ftINT(L)*RINTYR(L»J)**PUINT(L) 

0203 


RECtiAlKJrll « RFCURd »J»1 1 4- HOVR 

0204 


RECUR(ItJt2l • RECUR(]»J.21 4 HOVR 

0205 

640 CONTiNDE 

0206 

636 

CONTINUE 

0207 

633 

CONTINUE 

0208 

632 

CONTINUE 

0209 


IFLAGl a 1 

0210 


RETURN 

0211 


END 
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DATE « 70113 


f H I i< il 


l5/A5/2$ 


l3/A5/2a 


TOTAL HEHORV AEQUIREHENTS 001074 BYTES 



Fgft-LEV£L LINKAGE EOlTQR GPTIONS SPECIFIED LIST»NCALtHAP 

VARIABLE OPTIONS USED SlZE-aZ69t6t2AS7&) DEFAULT OPTlONlS) USED 

lEUOQOO HABE HOXOZ$N|R) 

IEW0A61 ITEM 
lEM0^6t IBCOH- 

IEU0A61 FRXPK* 

IEM0461 HINO 


CONTROL SECTION 


ENTRV 


NAHE 

ORIGIN 

LENGTH 

ST6NUH 

OO 

IB74 

NQNDIH 

IBTD 

1C 

VEHCLE 

IB98 

ABO 

HISS ON 

20A0 

A90 

STAGE 

2ADB 

6E4 

INT 

3 ICO 

3C0 

VEHREC 

3SB0 

3CF4 

CAPHAT 

T270 

FA4 

INTREC 

D220 

140 

STGREC 

B360 

670 

DSCOST 

&900 

I83d 

REUSDL 

A200 

190 

NWeER 

A39B 

2Sao 

SCRACH 

C918 

53FC 


NANE LOCATION NAME LOCATION NAHE LOCATION NAHE 


ENTRY ADDRESS OO 

j total lengtn 11 Die 

I «*«%hoxo2SN non replaced in Data set 

i 

‘ DIAGNOSTIC HESSAfg DIRECTORY 


I.OCATION 


IEHOA61 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCEi NCAL NAS SPECIFIED 




FFNo 665 Aug 65 



